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RADC  Project  Engineer:  Kenneth  R.  Siarkiewicz  (RBCT) 


IS.  KEY  BOROS  fC—IMua  an  forme  mo  otto  II  wacaaaary  *nW  Uniwy  M  Mw*  wSarj 

Electromagnetic  Compatibility  Matrix  Equation  Solution 

Method  of  Moments  (MOM)  MOM/GTD  Hybridization 

Geometrical  Theory  of  Diffraction  (GTD)  EM  Radiation  and  Scattering 
Antenna  Analysis 

SO.  ABSTRACT  rCMIiM  an  raaaraa  ifda  If  itaciaaagy  an*  Man  Illy  Sr  Sfac*  wSarJ 

GEMACS  solves  electromagentlc  radiation  and  scattering  problems.  The 
Method  of  Moments  (MOM)  and  Geometrical  Theory  of  Diffraction  (GTD)  are 
used.  MOM  is  formalized  with  the  Electric  Field  Integral  Equation  (EFIE) 
for  wires  and  the  Magnetic  Field  Integral  Equation  (MFIE)  for  patches.  Ttv 
code  employs  both  full  matrix  decomposition  and  Banded  Matrix  Iteration 
(BMI)  solution  techniques.  The  MOM,  GTD  and  hybrid  MOM/GTD  techniques  in 
the  code  are  used  to  solve  electrically  small  object  problems,  electrical! 
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large  object  problems  and  combination  sized  object  problems. 

Volume  I  of  this  report  is  the  User  Manual.  The  code  execution  require¬ 
ments,  input  language  and  output  are  discussed. 
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contains  extensive  software  information  of  the  code. 
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2. 

PURPOSE:  To  convert  a 
format  and  to  set  up 
plotting. 

real /I mag Inary  field  data  set  to  magnitude/ 
the  data  set  for  subsequent  printing  and/or 

§j 

s 
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3. 

METHOD:  A  previously  calculated  field  data  set  Is  retrieved,  the 
contents  converted  to  magnitude/phase  format,  and  resultant  values 
stored.  FLDOUT  Is  called  to  print  and  plot  the  field  data. 

1 

set 

m 

1 

FLOORV  will  accept  coordinates  for  three  different  systems: 
Cartesian,  cylindrical,  and  spherical.  The  initial  coordinates  will 
be  received  In  a  specific  order.  This  order  determines  the  order  In 
which  each  coordinate  Is  incremented.  The  following  is  an  example 
command: 
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NEAR  =  EFIELD  (CURDEN) 

LINLIN 

». 

VJ 

DX  *  1. 

X2  *  10. 

Z1  =  0. 

0Y  =  10.  DZ  =  10. 

Y2  =  10.  Z2  =  10. 

Yl  =0.  XI  =  0. 

1 

$ 

X 

Z  will  be  on  the  outer  loop.  Y  will  be  on  the  middle  loop,  and  X 
will  be  on  the  Inner  loop.  This  Is  determined  by  looking  at  the 
Initial  coordinates  Zl,  Yl,  and  XI. 
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4. 

INTERNAL  VARIABLES: 

m 

$ 

A 

VARIABLE 

DEFINITION 

Cl 

Array  containing  imaginary  parts  of  elec¬ 
tric  field  vectors  for  an  observation  point 

1  '  v.  * 

} 

t 

CR 

Array  containing  real  parts  of  electric 
field  vectors  for  an  observation  point 
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ESQR 

Magnitude  of  the  electric  field  squared 

FRFLD 

Logical  far-fleld  flag 

m 
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Loop  Index 
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I BLANK 

Hollerith  field  with  all  blank  characters 

IBLK 

Loop  Index 
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IC 

Loop  Index 
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ICOLA 

Number  of  columns  added  to  the  field  matrix 
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FLDDRV 


(OUTPUT) 


ICOLMN 

*  Column  counter  for  the  output  field  matrix 

icon 

ICOLMN  +  1 

ICOROT 

Coordinate  keyword  table  used  to  find  all 
the  coordinate  positions  and  increments 

ICOST 

Coordinate  order  and  system  table.  This 
table  will  tell  which  coordinates  are 
required  for  a  system  (Cartesian,  cylin¬ 
drical,  and  spherical).  Should  an  improper 
coordinate  type  be  specified,  an  error  is 
generated.  It  also  will  get  the  order  for 
near-field  patterns. 

ICTYPE 

Type  of  coordinate  system,  formed  by  adding 
the  location  of  system  constitutive  param¬ 
eters  In  ICOST: 

6  =  rectangular  (1  +  2  +  3) 

12  =  cylindrical  (4  +  5  +  3) 

15  =  spherical  (4  +  5  +  6) 

II 

Pointer  to  PHSMAG  array  to  store  magnitude 
and  phase  of  field  components 

INCORE 

Logical  flag  which  Indicates  that  inter¬ 
polation  coefficients  are  stored  in  core 
memory 

INDEX 

Saves  the  order  of  the  coordinates 

INDEX1 

Index  to  the  U  array  for  the  first 
coordinate 

INDEX2 

Index  to  the  U  array  for  the  second 
coordinate 

INDEX3 

Index  to  the  U  array  for  the  third 
coordinate 

INOXA 

Index  to  the  field  data  set  In  symbol  table 

INDXB 

Index  to  the  solution  or  source  data  set  in 
segment  table 

I  PLOT 

Plot  type  to  be  used  by  the  plotting 
routine 

IROWA 

Number  of  rows  in  a  column 

Number  of  rows  In  the  solution  matrix 

The  coordinate  Information  array  (equlva- 
lenced  to  U) 

Message  array 

Loop  Index 

Index  to  ICORDT  for  coordinate  system  type 
Loop  Index 
Keyword  argument 

Index  of  the  field  matrix  to  link  the  field 
matrix  to  the  solution  data 

The  loop  array  containing  the  number  of 
times  to  perform  each  loop 

Outer  loop  limit 

Middle  loop  limit 

Inner  loop  limit 

Index  of  Inner  pattern  loop 

Index  of  middle  pattern  loop 

Index  of  outer  pattern  loop 

Array  containing  the  order  for  all 
coordinate  systems 

Used  to  determine  the  required  coordinate 
for  a  system 

Loop  Index 

Hollerith  format  of  NAMEA 

Name  of  the  solution  data  set 

Name  of  the  field  data  set 

Name  of  the  solution  or  source  data  set 


FLDORV 


(OUTPUT) 


NBITA 

NDX 

NOXINR 

NOXHIO 

NOXOUT 

NINC 

NP 

NPI 

NPIC 

NPRC 

NPRFPT 

NSAV 


Far-  or  near-field  attribute  for  the  field 
matrix 

Pointer  to  coordinate  number  in  INDEX  array 

Index  to  the  coordinate  in  the  U  array  and 
In  the  inner  loop 

Index  to  the  coordinate  in  the  U  array  and 
in  the  middle  loop 

Ind^x  to  the  coordinate  in  the  U  array  and 
in  the  outer  loop 

The  increment  size  for  filling  a  column  in 
the  field  matrix  (number  of  real  words  per 
field  point) 

Loop  index 

Index  to  TEMP  for  vector  components  of 
field  point 

Pointer  to  TEMP  to  retrieve  imaginary  part 
of  field  value 

Pointer  to  TEMP  to  retrieve  real  part  of 
field  value 

NINC/2  (number  of  vector  components  at 
field  point) 

Pointer  to  first  TEMP  entry  for  a  pattern 
cut 


NXTARG 

Next  argument  to  be  evaluated 

PHSMAG 

Phase  and  magnitude  component  parts  of  the 
complex  electric  field  for  each  position 

PWRMAX 

Maximum  power  of  the  structure 

RDTODG 

Conversion  factor  from  radians 

to  degrees 

U 

Array  containing  Initial  and 
tlons  plus  the  increment 
coordinate 

final  posi- 
for  each 

FLOORV 


(OUTPUT) 


5.  I/O  VARIABLES: 

A.  INPUT 
OGTORO 
FLTAR6 
INTARG 
IPASS 
ISON 
KBFFLD 
KBNFLO 
KBREAL 
KOLB IT 
KOLLNK 
KOLNAM 
KOLROW 
KUNAME 
LUPRNT 
NCOOES 
NDATBL 
NOPCOO 
NPDATA 
NTFLPT 
NUMARG 
ZERO 

B.  OUTPUT 
IERRF 
INTARG 


LOCATION 

/GEOOAT/ 

/ARGCOM/ 

/ARGCOM/ 

/ARGCOM/ 

/AOEBUG/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/AOEBUG/ 

/PARTAB/ 

/PARTAB/ 

/AOEBUG/ 

/PARTAB/ 

/ADEBUG/ 

/ARGCOM/ 

/AOEBUG/ 

LOCATION 

/AOEBUG/ 

/ARGCOM/ 
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FLODRV 


lanuicuki 


(OUTPUT) 


IWORDS 

NOGOFG 


CALLING  ROUTINE: 
TSKXQT 

CALLED  ROUTINES: 

ASSIGN 

CONVRT 

ERROR 

FLDOUT 

GETARG 


/AOEBUG/ 

/SCNPAR/ 

/TEHPOl/ 


GETSYM 

IBITCK 

PUTSYM 

STATIN 

STATOT 


SYMDEF 

SYMUPD 


WLKBCK 
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NAME:  FLOOUT 


(OUTPUT) 


PURPOSE:  Print  and  plot  electric  field  data. 

METHOD:  FLDOUT  reads  the  plot  matrix  generated  by  FLDDRV.  Then 

each  column  is  listed  and  plotted  on  the  line  printer. 


INTERNAL  VARIABLES: 
VARIABLE 


DYNAMR 

EMAXSQ 


IDPLOT 


IREC1 

IREC2 


JAXIS 


LABEL 


DEFINITION 

Polar  coordinate 

Electric  field 
coordinate 


magnitude 


for  each 


Step  size  for  inner  loop 
Coordinate  values 
Error  size 

Sum  of  the  electric  fields  squared 
Logical  flag  for  a  far-fleld  case 
Array  containing  headers  for  printing 
Input  plot  type 

Pointer  to  the  coordinate  on  the  inner  loop 

Index  to  record  to  be  retrieved  from  the 
plot  file 

First  record  of  data  file 

Last  record  of  data  file 

The  type  of  plot  for  subroutine  PAGPLT 

Type  of  coordinate  system 

Array  containing  labels  for  printing 

Temporary  array  for  printing 

Index  to  solution  or  geometry  data  set 


PREVIOUS  PAGE 
IS  BLANK 


FLDOUT 


(OUTPUT) 


LNKBIT 

Attribute  of  linked  solution  or  geometry 
data  set 

LOG 

Logical  flag  for  a  log  plot 

NAMFLD 

Name  of  the  plot  file 

NBITS 

Attribute  word  for  the  plot  file 

NBLK 

Blank  word 

NDXFLD 

Index  to  the  plot  file 

NE 

Plot  file  name  to  be  printed 

NEAR 

Logical  flag  for  near  field 

NEED 

Number  of  words  needed  for  temporary 
storage 

NG 

Name 

NHDWRD 

Number  of  words  in  the  header  of  a  file 

NPRFPT 

Number  of  words  per  point 

NPRHOR 

Size  of  the  header 

NPRREC 

Number  of  rows  in  a  column  of  a  matrix 

NTl 

First  record 

NT1SAV 

First  record  saved 

NT2 

Last  record 

NT2SAV 

Last  record  saved 

NUMREC 

Number  of  entries  in  a  column 

PHS 

Phase  of  the  electric  field  components 

PWR 

Power  of  the  electric  field 

PWRDWN 

Power  down  at  any  field  point  referenced  to 
the  maximum  for  that  calculation  loop  (log) 

PWRMAX 


Power  maximum  for  that  calculation  loop 


FLDOUT  (OUTPUT) 


PWRRAT 

Power  ratio  of  power  at  a  field  point  to 

the  maximum  for  that  calculation  loop  ( 1 1 n) 

PWRSQ 

Power  squared 

RADHAX 

Maximum  radius 

X 

Rectangular  position  of  a  polar  plot  point 

XMAX 

Maximum  value  for  X 

XMIN 

Minimum  value  for  X 

Y 

Rectangular  position  of  a  polar  plot  point 

I/O  VARIABLES: 

A.  INPUT 

LOCATION 

EMAXSQ 

F.P. 

IDPLOT 

F.P. 

IREC1 

F.P. 

IREC2 

F.P. 

NAHFLD 

F.P. 

NDATBL 

/PARTAB/ 

NPDATA 

/PARTAB/ 

B.  OUTPUT: 

None 

CALLING  ROUTINE: 

FLDDRV 

7.  CALLED  ROUTINES: 
ASSIGN 
CONVRT 


ERROR 


PURPOSE:  To  determine  If  all  corners  of  a  plate  lie  in  a  plane. 

METHOD:  Flatness  Is  checked  by  comparing  the  plate  normal  to  each 
plate  edge.  If  the  normal  vector  Is  perpendicular  to  all  edge  unit 
vectors,  the  plate  is  flat.  The  plate  normal  is  generated  from  plate 
edges  1  and  2.  Edges  are  generated  from  adjacent  corners  as  shown 
In  the  figure. 


A  (X5,  Y5,  Z5) 


INTERNAL  VARIABLES: 

VARIABLE 

DOT 


EIX,  E1Y,  E1Z 

E2X,  E2Y,  E2Z 

I  ERF 

M 

Ml 

M2 

ME 


DESCRIPTION 

Dot  product  of  plate  normal  and  edge  unit 
vectors 

Vector  describing  edge  1 
Vector  describing  edge  2 
Flatness  flag  (0  =  flat  plate) 

Index  over  plate  edges 
Index  of  first  corner  of  edge  M 
Index  of  second  corner  of  edge  M 
Number  of  edges 
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FLTPLT 


(INPUT) 


V 

Edge  unit  vector 

VM 

Magnitude  of  edge  vector 

VN 

Plate  normal  unit  vector 

VNM 

Magnitude  of  plate  normal  vector 

X 

Array  of  corner  x-coordi nates 

Y 

Ar  *ay  of  corner  y-coordi nates 

Z 

Array  of  corner  z-coordlnates 

I/O  VARIABLES: 

A. 

INPUT 

LOCATION 

ISOFF 

/ADEBUG/ 

ISON 

/ADEBUG/ 

HE 

F.P. 

X 

F.P. 

Y 

F.P. 

Z 

F.P. 

B. 

OUTPUT 

LOCATION 

I  ERF 

F.P. 

6.  CALLING  ROUTINE: 
PLATE 

7.  CALLED  ROUTINES: 
ASSIGN 

STATIN 

STATOT 

WLKBCK 


1.  NAME:  FNDARG 


(INPUT) 


2.  PURPOSE:  Find  argument(s)  for  argument  list. 

3.  METHOD:  There  are  two  forms  of  argument  types  that  can  be  Input  to 
FNDARG: 

(a)  Argument  type  >0.  This  number  Is  put  directly  Into  the 
argument  list. 

(b)  Argument  type  <0.  In  this  case,  the  SCAN  table  pointer  Is 

moved  from  left  to  right  until  an  Item  that  Is  not  an 

operator  or  has  not  been  used  Is  found.  The  absolute 

value  of  the  argument  type  Is  unpacked  like  keywords  are 
In  PARSE.  The  following  Is  the  formula  used  for  argument 
types  where  MXARGT  Is  the  maximum  number  of  argument  types 
+  1  (32),  MLTARG  Is  the  packed  argument  type(s),  and 
ARGTYP  Is  the  array  used  to  receive  the  argument  type: 

MLTARG1+1  -  IFIX  (MLTARG 1 /MXARGT) ♦MXARGT 

NARGTP1  -  MLTARG1  -  MLTARG^ 

1  -  1  to  6 

FNDARG  expects  the  argument(s)  In  the  command  text  to  be  In  the  same 
order  as  those  In  the  argument  type  array.  Starting  at  the  current 
position  of  the  SCAN  table  pointer.  It  loops  through  the  array  of 

argument  types  to  pick  up  arguments  from  SCAN  tables.  These  argu¬ 

ments  will  be  put  In  the  argument  list  by  a  portion  of  the  code  that 
handles  each  argument  type.  If  the  argument  Is  not  there  or  Is  the 
wrong  type,  a  no  op  code  Is  left  In  the  argument  list. 

4.  INTERNAL  VARIABLES: 

VARIABLE  DEFINITION 

INC  Internal  function  Incrementing  NPARGL 

INDEX  Value  to  be  put  In  the  argument  list 

MINUSI  -1 

MLTA  Second  temporary  location  for  multiple 

argument  types 

MLTARG  First  temporary  location  for  multiple  argu¬ 

ment  types 

NA  Index  for  unpacking  arguments 
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FNDARG 


(INPUT) 


NCONTB 

Is  equated  to  NCODE  (NTAB) 

NOXARG 

Temporary  location  for  argument  type 

NKEYW 

Keyword  number 

NLOOP 

Loop  level  pointer 

NPARGT 

Input  argument  type 

NTFMTP 

Ta.k  format  table  pointer 

NTFP 

Task  format  table  pointer  +  1 

Ml 

Points  to  first  argument  in  argument 
to  start  scanning  for  ILP  keyword  in 
DEBUG  command 

list 

the 

I/O  VARIABLES: 

A.  INPUT 

LOCATION 

IMINUS 

/SCNPAR/ 

I  PLUS 

/SCNPAR/ 

ISOFF 

/ADEBUG/ 

ISON 

/ADEBUG/ 

KOLCNT 

/PARTAB/ 

KOLLBL 

/PARTAB/ 

KOLTIM 

/PARTAB/ 

KOLTSK 

/PARTAB/ 

KWFMTP 

/PARTAB/ 

KWOFF 

/PARTAB/ 

KWTRAC 

/PARTAB/ 

LOOPMX 

/PARTAB/ 

LSTASK 

/SCNPAR/ 

/SCNPAR/ 


LSTOAT 


FNDARG 


(INPUT) 


4 

,vP 

; 

4 


H 


LSTINT 

LUPRNT 

MXARGT 


MXMAT 


NARGMX 


NCODE 

NDATMX 

NPARGL 

NPARGT 

NPEARG 

NPELAB 

NPELNL 

NPELOO 

NPELOP 

NPESCN 

NPETSK 

NPLOOP 


NPTASK 


NTALPH 

NTEND 

NTFLPT 

NTINT 

NTKEYW 


NTSFMT 


/SCNPAR/ 

/AOEBUG/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/SCNPAR/ 

/PARTAB/ 

/PARTAB/ 


/INPERR/ 

/INPERR/ 

/INPERR/ 

/INPERR/ 

/INPERR/ 

/INPERR/ 

/INPERR/ 

/PARTAB/ 

/PARTAB/ 

/SCNPAR/ 

/ADEBUG/ 

/AOEBUG/ 

/ADEBUG/ 

/AOEBUG/ 

/ADEBUG/ 

/PARTAB/ 


,Vv;^vv; 
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FNOARG  (INPUT) 


:$! 


1 

NTSYHB 

/AOEBUG/ 

1 

NVAL 

/SCNPAR/ 

I 

B.  OUTPUT 

LOCATION 

Ij 

b 

LTRACE 

/AOEBUG/ 

I 

LUOBUG 

/AOEBUG/ 

| 

MATCH 

/SCNPAR/ 

1 

NARGTB 

/PARTAB/ 

1 

NCODE 

/SCNPAR/ 

1 

NDEBUG 

/SCNPAR/ 

re 

I 

NLOOPS 

/PARTAB/ 

1 

NOMTCH 

/SCNPAR/ 

1 

NPTASK 

/PARTAB/ 

K 

H 

NTAB 

/SCNPAR/ 

1  7. 

CALLING  ROUTINE: 

1 

i 

PARSE 

| 

n  ®* 

CALLED  ROUTINES: 

1 

ASSIGN 

| 

FABL02 

jj 

LITSCH 

8 

PL  1ST 

STATIN 

1 

STATOT 

I 

SYMLIT 

R 

1 

SYMSCH 

1 

WLKBCK 
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vv 


task  name 
1070 

G  ) - — - *J 


GET  TASK  NUMBER 
AND  PUT  (N  ARGUMENT 
LIST 


G> 


OPERATOR 

\  ,08°  * 

PUT  OPERATOR  INDEX 

)  * 

IN  ARGUMENT  LIST 

G 


LIST  OF 
NUMBERS 

\  1,00  » 

PUT  LIST  OF 

LIST 

PLIST 

UST  OF 
SYMBOLS 
1110 


PUT  LIST  OF 
SYMBOLS  IN  APG 
LIST 


£USI 


Page  4  of  4 


LIST  OF 
LITERALS 
_  1120 


r  LvJ 

PUT  LIST  OF  LITERALS 

r?\ 

PLIST 

v  ) 

LIST  OF  TASKS 

OR  KEYWORDS  - 

S1130  PUT  LIST  OF  TASKS 

(  u  A  OR  KEYWORDS  IN 

W  ARG  LIST 

PLIST 


PUT  LOOP  TABLE 
INDEX  IN  ARG  TABLE 


PUT  LABEL.  TASK 
POINTER  .  LEVEL  FLAG 
IN  THE  ARGUMENT 
LIST 


FIND  LABEL  IN  LOOP 
TABLE  AND  SET 
COUNTER 


SYMBOL  OR 
KEYWORD 
.  1160 


PUT  KEYWORD 
NUMBER  IN  ARGU 
MENT  LIST 


< 

8 


DEBUG  TASK 
LIST  I 

__  1170  I 


GET  LIST  OF  TASKS 
TO  BE  DEBUGGED 
PLIST 


TURN  ON  TRACE 
OR  DEBUG  FOR  ILP 


NAME:  FNDREC 


(GTO,  INPUT,  MOM,  OUTPUT) 


PURPOSE:  Find  the  global  record  number  of  a  global  word  location  on 
a  multiple  edition  data  file. 

METHOD:  The  attributes  of  the  data  set  are  extracted  from  the  sym¬ 
bol  table  and  the  number  of  words  per  data  set  element  calculated. 
The  record  number  of  a  word  In  a  full  matrix  Is  determined  by  simple 
division.  For  a  triangular  matrix  or  banded  triangular  matrix,  the 
record  number  Is  found  by  stepping  through  the  nonequal  length 
matrix  records  until  the  total  length  of  records  stepped  through  Is 
greater  than  or  equal  to  the  word  location  desired. 


INTERNAL  VARIABLES: 

VARIABLE 

IBANO 

IFILE 

I LOWER 

IORDER 


IUPPER 


KBAND 


KLINK 


LOCFST 


LOCLST 


DEFINITION 

Flag  indicating  a  banded  matrix 

Logical  unit  number  on  which  data  reside 

Flag  indicating  a  lower  triangular  matrix 

Flag  indicating  a  transposed  matrix 

Global  record  number  of  LOC 

Pointer  to  NDATBL  entry  for  matrix 

Flag  Indicating  an  upper  triangular  matrix 

Number  of  words  analyzed  for  a  triangular 
matrix 

Flag  indicating  that  data  set  linked  to 
matrix  Is  banded 

Pointer  to  data  set  linked  to  data  set 
linked  to  matrix 

Pointer  to  data  set  linked  to  matrix 

Matrix  word  for  which  record  number  is 
desired 

Location  of  beginning  of  present  edition  of 
data  set 

Location  of  end  of  present  edition  of  data 


FNDREC 

(GTO,  INPUT,  MOM,  OUTPUT) 

LWRUPR 

Flag  indicating  a  triangular  matrix 

MATNAM 

User-assigned  name  to  this  matrix 

MORE 

Flag  indicating  existence  of  attribute 

NA 

Hollerith  version  of  MATNAM 

NAMSAV 

Matrix  name  in  last  call  to  FNDREC 

NBITWO 

3i-  attribute  word  of  matrix 

NPRELM 

Number  of  data  words  per  matrix  element 

NPRPRT 

Number  of  rows  in  parent  matrix 

NPRREC 

Number  of  words  in  record  of  matrix 

NUMROW 

Number  of  rows  in  matrix 

I/O  VARIABLES: 

P.  INPUT 

LOCATION 

DBGPRT 

/ADEBUG/ 

ISOFF 

/ADEBUG/ 

ISON 

/ADEBUG/ 

KBBAND 

/PARTAB/ 

KBCPLX 

/PARTAB/ 

KBDPRE 

/PARTAB/ 

KBLWRT 

/PARTAB/ 

KBORDR 

/PARTAB/ 

KBUPRT 

/PARTAB/ 

KOLAST 

/PARTAB/ 

KOLB IT 

/PARTAB/ 

FNDREC 


(GTO,  INPUT,  MOM,  OUTPUT) 


4 


-V.t.V- 


KOLFST 

KOLLNK 

KOLLOC 

KOLNAM 

KOLROW 

LOC 

LUPRNT 
MATNAM 
NDATBL 
NDFILE 
NPDATA 
B.  OUTPUT 
IERRF 
IREC 

6.  CALLING  ROUTINES: 
GETSYM 

PUTSYM 

7.  CALLED  ROUTINES: 
ASSIGN 

CONVRT 

ERROR 

IBITCK 

IJMOD  (Intrinsic) 


/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB 

F.P. 

/ADEBUG/ 

F.P. 

/PARTAB/ 
/ IOFLES/ 
/PARTAB/ 
LOCATION 
/ADEBUG/ 
F.P. 


STATIN 

STATOT 

WLKBCK 
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1.  NAME:  FRNELS 


(6T0) 


2.  PURPOSE:  To  compute  the  Fresnel  integral, 


r*  2 

f<xg)  *  J  e“D1,/2  u  da  =  C(xs)  -  j  S(xs)  . 


3.  METHOD:  The  Integral  Is  evaluated  using  an  approximation  by 
J.  Boersma  (see  reference  A).  The  integral 


■■  •  / 


y/  2irt 


is  approximated  as  follows: 


for  0  <  x  <  A  f<r>  .  U„  ♦  jb„,  (})" 

for  *  >  4  f(«)  ■  if1  +  (Cn  +  V  (x) 

(the  constants  an,  bn,  cn,  and  dn  are  provided  by  Boersma  and  are 
defined  In  data  statements  In  the  subroutine). 

Note  that  by  performing  a  change  of  variable,  the  integral  to  be 
solved  becomes  of  the  form  of  the  integral  which  Boersma  solved; 


t-f 


By  applying  this  change  of  variable,  we  get 


V  ■  / 


.  v  2 
e'l  2  u  du 


r— 


10^ 


,irs 


FRNELS 


(6TD) 


where 


n  2 
x  '  2  xs 


INTERNAL  VARIABLES: 

VARIABLE 

A(B,CC,0 

C 

FI 

FR 

PI 

S 

XS 

1/0  VARIABLES: 

A.  INPUT 
PI 

XS 

B.  OUTPUT 
C 

S 


DEFINITION 

Constants  used  in  evaluating  integral 
Real  part  of  Fresnel  integral 
Imaginary  component  of  summation  function 
Real  component  of  summation  function 
u 

Imaginary  part  of  Fresnel  Integral 
Limit  of  integration 

LOCATION 

/PIS/ 

F.P. 

LOCATION 

F.P. 

F.P. 


CALLING  ROUTINES: 


A 


CALLED  ROUTINE: 


REFERENCE: 


A.  J.  Boersma,  "Computation  of  Fresnel  Integrals,"  Math  Com 
Vol.  14,  I960,  p.  380. 
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PURPOSE:  This  function  calculates  the  Integrand  of  the  integral  in 
subroutine  FKARG. 


METHOD:  The  Integrand  of  the  Integral  evaluated  in  subroutine  FKARG 
Is  given  by 


FUMI(VR)  = 


V  A2sin2 (VR)  +  B2COS2(VR) 


This  function  simply  performs  this  division  and  returns  the  result 


in  FUN I. 

INTERNAL  VARIABLES: 
VARIABLE 
A 
B 

FUN  I 
VR 

I/O  VARIABLES: 

A.  INPUT 
A 

B 

VR 

B.  OUTPUT 
FUN  I 

CALLING  ROUTINE: 
FKARG 

CALLED  ROUTINE: 

NONE 


DEFINITION 

Radius  of  cylinder  on  x-axis 
Radius  of  cylinder  on  y-axis 
Integrand  used  in  FKARG 
Elliptic  angle  on  cylinder  in  radians 

LOCATION 

/GEOMEL/ 

/GEQMEL/ 

F.P. 

LOCATION 

FUNCTION 
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FUNCTION:  This  subroutine  interfaces  the  geometry  processing  sub¬ 
routines  to  the  task  execution  processor. 

METHOD:  This  subroutine  first  retrieves  the  geometry  processor 

arguments  and  initializes  all  of  the  tables.  Then  the  subroutine 
calls  WYRDRV  to  read  the  geometry  input.  Next  the  wires  and  then 
the  patches  are  sorted  into  ascending  order,  the  multiple  junctions 
determined,  and  the  junction  linkage  set  up.  Cylinders  and  end  caps 
are  linked  by  LNKGTD.  Finally  the  subroutine  prints  out  the  ordered 
list  of  wires,  patches,  and  GTD  objects  with  their  coordinates  and 
other  data. 

INTERNAL  VARIABLES: 


VARIABLE 

AREAP 

COSALP 

COSBET 

DX 

DY 

DZ 

GAREA 

IBITS 

IBLK 
I  END 

IEND1 

IEND2 

ILIM 


DEFINITION 
Area  of  a  patch 
RHO/SEGL 
DX/RHO 

Difference  in  end  points  for  x 

Difference  in  end  points  for  y 

Difference  in  end  points  for  z 

Total  surface  area  of  wires 

Attributes  to  be  added  to  the  attribute 
word 

Data  block  index 

Index  pointing  to  the  wire  connected  to  the 
patch 

Bias  connection  data  for  end  1 

Bias  connection  data  for  end  2 

The  number  of  segments  in  current  data 
block 


ILINE 


Number  of  lines  that  have  been  printed  out 


GEOORV 


(INPUT) 


INPBLK 

!  I PASS 

I  I  PAT 

j  IPLIM 

I  I PLOW 

t 

1 

\ 

|  ISEG 

I  TAG 
JBIAS1 
JBIAS2 
JBIAS3 

JCBIAS 

LOCNAM 

LUSAVE 

LUTASK 

MAXBLK 

MAXSEG 

MLTJCT 

MXBLKW 

NAMGEO 

NCONT 

NDXBLK 


First  block  containing  patch  data 

Integer  value  of  pass  through  task  list 

Patch  segment  identifier 

The  number  of  segments  in  patch  data  blocks 

The  location  of  first  patch  segment  in 
patch  data  blocks 

Wire  segment  identifier 

Tag  identifier 

Connection  bias  for  end  1  of  a  wire  segment 

Connection  bias  for  end  2  of  a  wire  segment 

Connection  bias  for  wire  segment  connected 
to  a  patch 

Integer  to  indicate  junction 

Location  in  the  symbol  table  for  the 
geometry  data 

Saves  LUTASK 

Logical  unit  for  reading  task 

Total  number  of  data  blocks 

Maximum  number  of  segments  per  data  block 

Index  to  a  multiple  connection  junction 

Number  of  wire  data  blocks 

Pointer  to  default  geometry  name 

The  number  of  subpatches  connected  to  a 
segment 

Index  to  the  data  block  currently  in  use 
The  number  of  patch  segments 


NPATCH 


GEODRV 


(INPUT) 


NUMSEG 

The  total  number  of  wire  and  patch  segments 

NWIRE 

The  number  of  wire  segments 

PAREA 

The  total  surface  patch  area 

PHI 

The  azimuthal  angle  of  the  patch  normal 
vector 

RADII 

Wire  radius 

RH 

Intermediate  value  for  normal  vector 

RHO 

[ (DX) ^  +  (DY)^]*5  for  wire  segment 

RXY 

Same  as  RH 

SEGL 

Segment  length 

SINALP 

DZ/SEGL 

SINBET 

DY/RHO 

THETA 

Polar  angle  of  patch  normal  vector 

T1X,T1Y,T1Z 

X,Y,  and  l  components  of  t^  unit  vector  for 
patch 

T2X,  T2Y,  T2Z 

X,Y,  and  1  components  of  t£  unit  vector  for 
patch 

UL 

Segment  half-length 

XC,YC,ZC 

X,Y,  and  Z  coordinates  of  the  center  point 
of  the  wire  segment 

XCPA.YCPA.ZCPA 

X,Y,  and  Z  coordinates  of  the  center  point 
of  the  patch  segment 

xn,yn,zn 

X,Y,  Z  coordinates  of  end  1  of  wire  segment 

XNPA,YNPA,ZNPA 

X,Y,  and  Z  components  of  patch  normal  vec¬ 
tor 

XP,YP,ZP 

X,Y,  and  Z  coordinates  of  end  2  of  wire 
segment 

XU.YU.ZU 


X,Y,  and  Z  components  of  segment  half- 


GEODRV 


(INPUT) 


I/O  VARIABLES: 
A. 


INPUT 

LOCATION 

INTARG 

/ARGCOM/ 

I  PASS 

/ARC COM/ 

JBIAS1 

/SEGMNT/ 

JBIAS2 

/'  EGMNT/ 

JBIAS3 

/SEGMNT/ 

KBGEOM 

/PARTAB/ 

KBREAL 

/PARTAB/ 

KOLLNK 

/PARTAB/ 

KOLNAM 

/PARTAB/ 

LUTASK 

/ADEBUG/ 

MAXBLK 

/SEGMNT/ 

MAXCSY 

/CSYSTM/ 

MAXDEF 

/DEFDAT/ 

MAXPTS 

/PNTTBL/ 

MAX RAD 

/SEGMNT/ 

MAX S EG 

/SEGMNT/ 

MLTJCT 

/SEGMNT/ 

NAMSEG 

/SEGMNT/ 

NC00E5 

/PARTAB/ 

NDATBL 

/PARTAB/ 

NOPCOD 

/ADEBUG/ 

NPRDEF 

/DEFDAT/ 

NPRPT 

/PNTTBL/ 

NPRSEG 

/SEGMNT/ 
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GEODRV 


3. 


NT  I  NT 

/ADEBUG/ 

NTSYMB 

/ADEBUG/ 

OUTPUT 

LOCATION 

CVAL 

/CSYSTM/ 

GAREA 

/SEGMNT/ 

IOCSYS 

/CSYSTM/ 

IDEFIN 

/OEFDAT/ 

IDFINS 

/DEFDAT/ 

IPTBUF 

/PNTTBL/ 

IPTS 

/PNTTBL/ 

IPTTBL 

/PNTTBL/ 

ISGTBL 

/SEGMNT/ 

NDEBUF 

/DEFDAT/ 

NOGOFG 

/AOEBUG/ 

NPATCH 

/SEGMNT/ 

NPTBUF 

/PNTTBL/ 

NRAD 

/SEGMNT/ 

NUMGTD 

/GTDDAT/ 

NUMPTS 

/PNTTBL/ 

NUMSEG 

/SEGMNT/ 

NWIRE 

/SEGMNT/ 

RAD 

/SEGMNT/ 

SCALE 

/SEGMNT/ 

SEGTBL 

/SEGMNT/ 

CALLING  ROUTINE: 


GEODRV 


CALLED  ROUTINES: 

ASSIGN 

BUBBLE 

CLSFIL 

GETARG 

GETSEG 

GETSYM 

JCTION 

LNKGTD 

LNKJCT 

MOVFIL 

OPNFIL 

PRTGTD 

PUTSYM 

RDEFIL 

STATIN 

STATOT 

SUBPAT 

SYMDEF 

SYMUPD 

WLKBCK 

WRTFIL 


WYRDRV 


NAME:  GEOM  (GTD) 

PURPOSE:  This  subroutine  calculates  a  large  number  of  constants 
that  are  fixed  for  a  given  geometry  of  plates.  They  are  stored  in 
common  blocks  for  use  In  other  routines  of  this  module.  GEOM  is 
called  whenever  the  source,  frequency  or  geometry  data  set  changes. 
Because  of  the  diversity  of  operations  done  in  GEOM,  its  description 
Is  broken  Into  seven  sections: 

(a)  Identify  edges  which  are  common  to  more  than  one  plate. 

(b)  Compute  unit  vectors  of  edge-fixed  coordinate  systems  for 
each  edge  on  each  plate. 

(c)  Determine  source  image  information  for  reflections  from 
plates. 

(d)  Calculate  possible  range  for  diffraction  angle  B0  for  each 
edge. 

(e)  Determine  wedge  angles  for  plates  with  common  edges. 

(f)  Determine  plates  which  are  totally  shadowed  from  the 
source. 

(g)  Perform  calculations  for  plates  which  intersect. 

METHOD:  Sections  (a)  and  (b)  are  performed  only  if  the  frequency  or 
geometry  data  set  name  has  changed.  An  error  can  occur  in 
section  (b)  If  one  of  the  plates  Is  not  flat.  If  this  happens  an 
error  flag  is  set  and  control  returns  to  the  calling  routine.  If  an 
error  did  not  occur,  then  no  matter  which  (the  source,  frequency,  or 
data  name)  changed  sections  (c)  through  (g)  are  performed.  Follow¬ 
ing  is  a  description  of  the  method  for  each  section. 

Section  (a):  Identifies  edges  which  are  common  to  two  plates. 

This  code  compares  the  edges  of  one  plate  to  the 
edges  of  all  the  other  plates  to  see  if  any  common 
corners  are  found.  If  two  corners  are  common,  it 
sets  their  corner  locations  identically  equal  and 
then  checks  to  see  if  the  other  corners  on  that  edge 
were  found  to  be  equal .  If  the  two  corners  on  one 
plate  are  at  the  same  location  as  two  corners  on 
another  plate,  thus  forming  a  wedge,  the  information 
is  stored  so  it  can  later  be  used  to  calculate  wedge 
angle  numbers.  Then  another  plate  is  taken  as  the 
starting  plate  and  the  procedure  is  repeated  until 
all  plates  have  been  checked  against  all  the  other 
plates  for  wedges.  Figure  1  shows  two  plates  with  a 
common  edge. 


PREVIOUS  PAGE 
IS  BLANK 
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Figure  1.  Illustration  of  Two  Plates  with  a  Common  Edge 


Section  (b):  Computes  edge-fixed  coordinate  system  unit  vectors 
for  each  edge. 

The  edge-fixed  coordinate  system  follows  the  right- 
hand  rule  convention.  As  your  fingers  trace  the  path 
from  corner  1  to  corner  2,  corner  3,  etc.  the  thumb 
points  in  the  direction  of  the  normal.  Figure  2 
shows  the  essential  geometry  and  associated  equation 
definitions. 


CORNER  ME 

*  MP, ME 


£  *  edge  unit  vector  =  x  V(MP,ME,1)  +  y  V(MP,ME,2)  +  z  V(MP,ME,3) 

=  plate  unit  normal  =  x  VN(MP,1)  +  y  VN(MP,2)  +  z  VN(MP,3) 

ME  =  edge  unit  binormal  =  x  VP(MP,ME,1)  +  y  VP(MP,ME,2)  +  z  VP(MP,ME,3) 
^  =  corner  location  =  x  X(MP,ME,I)  +  y  X(MP,ME,2)  +  z  X(MP,ME,3) 


Figure  2.  Edge-Fixed  Coordinate  System  Unit  Vectors 


<  > 


Section 


The  edge  unit  vectors  are  found  by. 


HP,  ME 


XMP , ME+1  ~  XMP,ME 

IX  -  X  I 

1  MP,ME+1  MP,ME' 


The  normals  are  found  using 


MEX  ~ 

VMP,N  X  VMP,N+1 
MEX  -  I 

VMP,N  X  VMP,N+1 


which  is  an  average  over  the  normals  computed  by  all 
the  edges  of  the  plate.  This  avoids  a  possible 
Incorrect  normal  due  to  a  convex  edge  geometry.  The 
bi normals  are  found  by, 

A  A 

VP  =  VN  X  V 

MP,ME  VWMP  VMP ,  ME 

l£l:  Calculates  source  image  information  for  reflection 

from  plates. 

This  section  calculates  the  single  and  double  reflec¬ 
tion  source  image  locations  (see  figure  3)  by  calling 
subroutine  IMAGE.  The  constant  FACTOR  is  also 
calculated  for  sources  mounted  on  a  plate.  The  code 
has  the  capability  of  allowing  both  electric  and 
magnetic  sources.  However,  version  3  of  GEMACS  only 
allows  electric  sources  (IM  set  to  zero  at  the 
beginning  of  this  subroutine).  Also  in  this  version, 
the  value  of  FACTOR  will  always  be  1.0.  Sources  do 
not  lie  In  the  plate  plane.  The  image  source  coor¬ 
dinate  system  axes  unit  vectors  for  single  reflection 
are  calculated  by  calling  IMDIR. 


SOURCE 

LOCATION 


PLATE  MPP 


/  \ 


PLATE  MP 


SINGLE  REFLECTION 
IMAGE  LOCATION 

MP,  MP 


DOUBLE  REFLECTION 
IMAGE_  LOCATION 

X^MP,  MPP 


Figure  3.  Geometry  of  Image  Locations  for  a  Doubly-Reflected  Ray 


Section  (d): 


Determines  permissible  range  for  angle  Bo  for  dif¬ 
fraction  of  the  source  ray  off  a  plate  edge. 

The  law  of  diffraction  dictates  that  diffraction  from 
a  plate  edge  is  possible  when 

cosB,  <  cosB  <  cosB0f 

l  —  o  —  i 

where  Bo  is  the  angle  that  the  incident  and 
diffracted  rays  make  with  the  edge  (see  figure  4). 
Bi  and  82  are  diffraction  angle  limits  and  are 
defined  in  terms  of  their  cosines  as: 


BD( MP , ME , 1 )  =  cos81  =  VIX-V 
BD(MP,ME, 2 )  =  cosB,  =  VI, -V, 


GEOM  (GTO) 


where 


A 

VI 


1 


I XME  -  XS> 


A 

VI 


2 


XME+1  ~  XS 
'XME+1  ~  XS' 


The  code  loops  through  plates  and  corners  to  calculate 
the  VI  incident  unit  vectors  and  then  loops  through  both 
edges  connected  to  a  corner  and  takes  the  dot  product 
VI -V  for  each  edge  to  determine  BO. 

The  vectors  mentioned  are  represented  in  the  code  by  the 
same  name.  These  vectors  are  shown  in  figure  4. 


Figure  4.  Geometry  for  Determining  Diffraction  Angle  Range 


[• 


T 


Section  (e) :  Calculates  wedge  angles  for  plates  with  common  edges. 

This  section  calculates  wedge  angles  for  the  plates 
identified  in  section  (a)  (by  variable  FNP)  as  having 
common  edges.  The  wedge  angle  is  specified  using  the 
wedge  angle  number  FN,  such  that  the  wedge  angle  is 
given  by 

(2  -  FN )  it 

as  shown  in  figure  5.  The  wedge  angle  number  is 
determined  as  follows: 


-  I  /top\ 

it  t  yBOTy 


where 

T0P  =  ™MQ  •  V\P 
SOT  =  -VANMp  •  A 

A 

VNwp  =  x  VN(MP, 1)  +  y  VN(MP,2)  +  z  VN(MP,3) 

VPMp  =  x  VP(MP,ME,1)  +  y  VP(MP,ME,2)  +  z  VP(MP,ME,3) 
VNmq  =  x  VN(MQ, 1)  +  y  VN(MQ,2)  +  z  VN(MQ,3) 


(  2-FN)  7T 


PLATE  MP 


PLATE  MQ 


Determines  plates  which  are  totally  shadowed  from  the 
source . 

If  plate  ML  (see  figures  6a  and  6b)  totally  shadows 
plate  MP  from  the  source,  then  every  ray  drawn  from 
the  source  to  a  corner  of  plate  MP  will  intersect 
plate  ML.  The  routine  computes  vectors  from  the 
source  to  each  corner  of  plate  MP  and  uses  a  shadow 
testing  algorithm  (in  subroutine  PLAINT)  to  check  if 
any  plate  shadows  all  of  the  rays.  If  so  (as  in 
figure  6a),  it  is  assumed  that  plate  MP  is  totally 
shadowed  from  the  source.  If  not  (as  in  figure  6b), 
it  is  assumed  that  plate  MP  is  not  totally  shadowed 
from  the  source  (at  least  by  one  plate). 

Handles  various  calculations  for  plates  which  inter¬ 
sect  each  other. 

This  section  performs  four  calculations.  First  it 
determines  if  one  plate  slightly  passes  through 
another  plate,  as  shown  in  figure  7.  If  this 
happens,  the  protruding  portion  is  deleted.  Whether 
an  edge  intersects  a  plate  or  not  is  determined  by 
calling  PLAINT. 

The  next  calculation  is  to  determine  the  wedge  angle 
number  for  these  intersecting  plates.  The  same 
method  as  in  section  5  is  used. 

The  third  calculation  is  to  find  plates  with  common 
edges  which  cannot  illuminate  each  other  because 
their  wedge  angle  is  greater  than  180°.  This  is 
performed  by  stepping  through  all  the  plate  combina¬ 
tions  and  their  edges  and  checking  the  wedge  angle 
number.  When  the  wedge  angle  is  greater  than  180°, 
those  plate  edges  are  identified  by  setting  LIHD 
equal  to  .TRUE.. 

The  last  part  ss  to  determine  which  plates  cannot 
illuminate  each  other.  When  a  ray  which  is  reflected 
or  diffracted  by  one  plate  propagates  in  a  direction 
away  from  the  second  plate,  it  cannot  illuminate  this 
second  plate.  These  plates  are  also  identified  by 
setting  their  LIHD  variable  to  .TRUE.. 


PLATE  MP 


Figure  7.  Illustration  of  a  Plate  Which  Intersects  Another 


INTERNAL  VARIABLES: 

VARIABLE  DEFINITION 

AN  Dot  product  of  plate  unit  normal  and  vector 

from  source  to  the  plate  (calculated  in 
IMAGE) 

ANI  Dot  product  of  vector  from  corner  1  of 

plate  MPP  to  the  double  reflection  image 

location  XI(MP.MPP)  and  the  unit  normal  of 
plate  MPP 

ANN  Dot  product  of  XSX  and  unit  normal  of  plate 

MP 

ANP  Dot  product  of  vector  from  corner  1  of 

plate  MPP  to  corner  MEE  of  plate  MP  and 

unit  normal  of  plate  MPP 

Also  dot  product  of  XSX  and  bi normal  of 
edge  ME  of  plate  MP 

BD  Cosines  of  angles  defining  bounds  on 

diffraction  angle 


\  V 


P: 


BOT 

DHIT 

DOT 

DS 


DSM 

ENORM 

FACTOR 

FANG 

FN 

FNP 

IBSCER 

IFN 
IH  IT 


GEOM  (GTD) 


Negative  dot  product  of  unit  normals  of 
plates  MP  and  MQ 

Distance  from  source  to  nearest  hit  point 
(from  PLAINT) 

Dot  product  of  plate  unit  normal  and  edge 
unit  normal 

Unit  vector  of  ray  from  source  to  corner  ME 
of  plate  MP  (section  (f)). 

Also  unit  vector  of  ray  from  image  to 
source  (section  (c)).  Also  unit  vector  of 
edge  ME  (section  (g)). 

Normalization  constant  for  DS 

Dot  product  of  VN  (the  unit  normal  of  plate 
MP)  and  the  z  axis  of  the  source  coordinate 
system 

Magnitude  adjustment  for  sources  mounted  on 
the  surface  of  plates 

Wedge  angle 

Wedge  angle  number 

Wedge  angle  number  (also  used  in  defining 
common  edges) 

An  error  flag  which  if  not  zero  represents 
that  an  error  has  occurred  and  the  program 
will  follow  through  properly  and  abort 

Index  variable 

Stores  plate  numbers  for  plates  intersected 
by  an  edge 


S' 


IM 

J 

LCTD 


Set  to  zero  to  indicate  electric  sources 
only 

DO  loop  variable 

Set  true  if  cylinder  shadows  plate  from 
source 
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LFRtJrL 


LGDNFL 


LSRCFL 


LSURF 


LUPRNT 


Logical  variable  set  true  if  the  frequency 
is  the  same  as  the  last  frequency  used  in 
this  routine 

Logical  variable  set  true  if  the  geometry 
data  set  name  (and  therefore  the  geometry) 
is  the  same  as  the  last  one  used  in  this 
routine 

Set  true  if  ray  hits  cylinder  (returned 

from  CVLINT) 

Set  true  if  ray  intersects  a  plate  (from 
PLAINT) 

Set  true  if  plates  MP  and  MPP  cannot 
illuminate  each  other 

Set  true  if  plate  MP  is  totally  shadowed 

from  the  source 

Logical  variable  set  true  if  the  source  is 
the  same  as  the  last  one  used  in  this 

routine 

Set  true  if  plate  ML  totally  shadows  plate 
MP  from  the  source 

Set  true  if  total  shadowing  algorithm  is 

being  used 

Logical  variable  indicating  if  the  source 
under  consideration  is  mounted  on  plate  MP 

LSURF(MP)  =  T  for  source  mounted  or  plate 
MP 

LSURF  (MP)  =  F  if  source  is  not  mounted  on 
plate  MP 

Output  file  number 
Index  variable 

00  loop  variable,  also  index  variable 
Working  variable 
Index  variable 


Index  variable 


MEH 

MEN 

MEP 

MES 

MEX 

MF 

MFC 

MFN 

MFS 

MFX 

ML 

MME 

MP 

MPH 

MPINX 

MPP 

MPPINX 

MPX 

MPXR 

MQ 

MR 


Working  variable 

Integer  array  which  contains  the  number  of 
edges  on  each  plate 

Computational  variable 

Number  of  edges  on  a  given  plate 

DO  loop  variable,  also  index  variable 

Working  variable 

Working  variable 

Computational  variable 

Number  of  edges  on  plate  MQ 

DO  loop  variable 

Index  variable 

DO  loop  variable  (step  through  plates), 

also  plate  index  variable 

Number  of  the  plate  which  a  doubly 
diffracted  ray  would  hit  first 

Plate  index  variable 

DO  loop  variable,  also  plate  index  variable 
Plate  index  variable 

Integer  which  indicates  the  number  of 
plates  in  the  geometry 

Maximum  number  of  plates  present 

DO  loop  variable  (step  through  plates), 

also  index  variable 

Index  variable 


MV 


Index  variable 


DO  loop  variable 
Working  variable 
DO  loop  variable 
DO  loop  variable 

Phi  component  of  vector  from  source  to 
plate  corner  in  RCS 

Angle  which  determines  which  side  of  the 
intersecting  plates  is  illuminated 
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Length  of  vector  from  source  to  edge  ME  of 
plate  MP 

Length  of  vector  from  source  to  closest 
edge  of  plate  MP 

Dot  product  of  bi normal  of  common  edge  of 
plate  MP  and  normal  of  plate  MQ 

2  IT 

Matrix  of  x,y,z  components  defining  edge 
unit  vector  in  RCS 

X,Y,Z  components  defining  single  reflection 
image  source  coordinate  system  axes  in  RCS 
components 

X,Y,Z  components  of  unit  vector  of  ray  from 
source  to  corner  ME  of  plate  MP 

Normalization  constant  of  VI 

Distance  between  two  neighboring  corners  on 
a  plate,  squared 

Distances  between  neighboring  corners  on 
plates 

X,Y,Z  components  defining  plate  unit  normal 
directions  in  RCS  components 


Plate  unit  normal  normalization  constant 


m 


IJ 


Matrix  containing  edge  unit  binormal  direc¬ 
tions  in  reference  coordinate  system  (RCS) 

X,Y,Z  components  defining  unit  vectors  of 
source  image  coordinate  system  axes  in  RCS 

X,Y,Z  components  defining  unit  vectors  of 
source  coordinate  system  axes  in  RCS 

Matrix  containing  ail  the  corner  locations 
for  all  the  plates 

Array  of  components  defining  single  and 
double  reflection  source  image  locations  in 
RCS 

X,Y,Z  components  of  single  reflection  image 
location  calculated  in  subroutine  IMAGE 

X,Y,Z  components  of  location  of  corner  ME 
of  plate  MP 

Also,  single  reflection  image  location 
Also,  XSII 

Distance  between  corner  MF  on  plate  MQ  and 
corner  ME  on  plate  MP 

The  x,y,z  components  of  the  source  location 

X,Y,Z  components  of  source  location  moved  a 
small  amount  in  the  direction  of  the  plate 
normal  (for  source  on  plate  plane) 

X,Y,Z  components  of  source  image  location 
calculated  in  subroutine  IMAGE  for  source 
located  at  XSI 

X,Y,Z  components  of  vector  from  corner  ME 
of  plate  MP  to  the  source 

Dot  product  of  binormal  of  edge  ME  of  plate 
MP  and  normal  of  plate  MR 


Dot  product  of  normals  of  plates  MP  and  MR 
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I/O  VARIABLES: 

A.  INPUT 

LOCATION 

LFRQFL 

/SAME/ 

LGDNFL 

/SAME/ 

LSRCFL 

/SAME/ 

LUPRNT 

/AOEBUG/ 

MEP 

/GEOPLA/ 

MPH 

/HITPLT/ 

MPX 

/GEOPLA/ 

HPXR 

/GROUND/ 

PI 

/PIS/ 

TP  I 

/PIS/ 

VXS 

/SORINF/ 

XS 

/SORINF/ 

X 

/GEOPLA/ 

.  OUTPUT 

LOCATION 

BO 

/BNOFCL/ 

FACTOR 

/SOURSF/ 

FNP 

/FNANG/ 

LIHD 

/LSHDT/ 

LSHD 

/LSHOT/ 

LSTD 

/LSHDP/ 

LSTS 

/LSHDP/ 

LSURF 

/SURFAC/ 

V 

/GEOPLA/ 

(GTD) 
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VN 

/GEOPLA/ 

VP 

/GEOPLA/ 

VMAG 

/EDMAG/ 

VXI 

/IMAINF/ 

XI 

/IMAINF/ 

CALLING  ROUTINE: 

GTDORV 

CALLED  ROUTINES: 

BTAN2 

CYLINT 

IMAGE 

IMDIR 


PLAINT 


2 


SECTION  b 


step  through  plates 
(VARIABLE  -  MP) 


1 

STEP  THROUGH  EDGES 

(VARIABLE 

-ME) 

CALCULATE  EOGE  UNIT  VECTOR  V  AND 
EDGE  LENGTH  VMAG  _ 


VMAG  •  /Z  (X(MP,ME+1,N)  -  X(MP.ME.N)  )2 
VN-  1 

V  (MP.ME.N)  -  (X(MP,ME+1,N)  -  X  (MP.ME.N)  l/VMAG  I 


CALCULATE  PLATE 
UNIT  NORMAL  \ 
TAKE  CROSS  PRO¬ 
DUCT  OF  EDGE 
UNIT  VECTORS  AND 
NORMALI2E 


CHECK  TO  SEE  IF  PLATES  1 
ARE  FLAT.  TAKE  DOT 
PRODUCT  BETWEEN  °LATE| 
NORMAL  AND  EDGE 
VECTOR  FOR  EACH  EDGE 
(EXCEPT  t  AND  2).  IF 
PRODUCT  IS  GREATER 


STEP  THRO 
(VARIABLE 

JGH  EDGES 
-ME) 

1 

f 

CALCULATE  EDGE  BINOR¬ 
MAL  VP  (NORMAL  TO  EDGE. 
PARALLEL  TO  PLATE). TAKE 
CROSS  PRODUCT  OF  PLATE 
NORMAL  AND  EDGE  UNIT 
VECTOR 

TO  STATEMENT  300  IN 
MAIN  FLOW  OFGEOM 
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1.  DETERMINE  SINGLE  REFLECTION 
SOURCE  IMAGE  LOCATIONS  ANO 


#NOT  USEO  IN  VERSION  3  OF  GEMACS 


GEOM  (GTD) 


Page 


of  12 


SECTION  e 


Page  9  of  12 


SET  FLAG  LSTS-TRUE 
TO  INDICATE  THE 
PROPER  TEST  IN  PLAINT 


SET  THE  SHADOW  FLAG 
LSHD- FALSE  FOR  ALL 
PLATES 


STEP  THROUGH  PLATES 
(VARIABLE-MP) 


SET  LSTD-TRUE  FOR 
ALL  PLATES 


^ns  ray\. 

.✓^SHADOWED 
^APLATE  OR  A  CYLINDER^ 
v  PLAINT 

N.  OR  / 

^SwCYLINT^^ 


LAST 

CORNER 

? 


/  DOES  ANY  \ 

''ONE  PLATE  Oft  CYLINDER\.i!2_ 
w  COMPLETELY  SHADOW 
\  PLATE  MP?  / 


STEP  THROUGH  CORNERS 
(VARIABLE  -  ME) 


CALCULATE  DS, 

UNIT  VECTOR 
OF  RAY  TRAVELING  FROW 
SOURCE  TO  CORNER  ME 
OF  PLATE  MP 


LSHD(MP)  -  TRUE 


RESET  FLAG 

lsts»false 


SECTION  g 
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(GTD) 
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DETERMINE  WHICH  PLATES  CANNOT  ILLUMINATE 
EACH  OTHER  BASED  ON  ILLEGAL  IMAGE  LOCATIONS 


NAME:  GEOMC 


(GTD) 

PURPOSE:  To  calculate  geometry  of  the  fixed  cylinder  structures. 

METHOD:  Four  major  calculations  are  performed  in  GEOMC.  The  first 
is  to  calculate  the  source  image  location  for  reflection  from  an  end 
cap.  The  image  source  location  is  given  by: 

_  _  A 

XIC  =  XS  -  2  -AN  VNC, 
where 

__  _  A 

AN  =  (XS  -  XC)  •  VNC 


and  Y5  is  the  vector  to  the  source  location,  YC  is  the  vector  to  the 
intersection  point  of  the  z  axis  and  the  end  cap,  and  VHt  is  the 
unit  normal  vector  of  the  end  cap.  These  quantities  are  shown  in 
figure  1. 

z 


IMAGE 

XIC 

Figure  1.  Geometry  for  Determining  Source  Image  Location  for 
Reflection  from  Cylinder  End  Cap 


The  second  step  is  to  calculate  the  source  field  factor,  FACTOR, 
which  is  the  coefficient  of  the  source  field  used  to  obtain  the 
correct  field  magnitude  for  sources  mounted  on  plates  or  the  end 
caps  in  order  to  compensate  for  image  effects.  This  quantity  can  be 
calculated  for  either  electric  or  magnetic  sources.  However 
version  3  of  GEMACS  only  analyzes  electric  sources,  so  the  value  IM, 
which  indicates  in  this  subroutine  an  electric  or  magnetic  source  is 
set  to  zero  (for  an  electric  source).  Subroutine  CAPINT  is  called 
to  determine  if  the  source  is  mounted  on  the  end  cap. 

The  third  major  calculation  is  to  compute  the  end  cap  image  source 
axes  directions.  This  is  done  by  calling  IMCDIR. 

The  above  three  calculations  are  performed  for  the  more  positive  end 
cap  and  then  for  the  more  negative  end  cap.  This  is  done  in  DO  loop 
515. 

The  last  calculation  is  to  compute  the  two  tangent  vectors  from  the 
source  to  the  cylinder  sides  as  shown  in  figure  2.  These  vectors 
are  the  boundaries  within  which  the  source  ray  must  propagate  to  hit 
the  cylinder.  This  information  is  stored  in  common  block  BNDSCL  and 
used  in  other  routines  later.  Subroutine  TANG  is  called  to  compute 
the  tangents. 


TANGENT  POINT  NO.  1 


SOURCE 

LOCATION 

XS 


'VTS(I) 


VTS12) 


TANGENT  POINT  NO.  2 


Figure  2. 


Illustration  of  Vectors  from  the  Source  Tangent  to  the 
Elliptic  Cylinder 


INTERNAL  VARIABLES: 


VARIABLE 


DEFINITION 

Dot  product  of  end  cap  normal  and  ray  from 
end  cap  to  source 

Array  which  defines  the  unit  vectors  of  the 
two  source  rays  tangent  to  the  cylinder 
such  that  the  unit  vector  for  the  source 
ray  tangent  to  tangent  point  1  is  given  by: 

A 

T1  =  x  BTS(l)  +  y  BTS ( 2 ) 

and  the  unit  vector  for  the  source  ray 
tangent  to  tangent  point  2  is  given  by: 

A  yv  zv 

T2  =  x  BTS ( 3 )  +  y  BTS(4) 

Cosine  of  the  angle  between  the  z  axis  and 
end  cap  plane  where  CNC(l)  refers  to  the 
more  positive  end  cap  and  CNC(2)  refers  to 
the  more  negative  end  cap  (angle  measured 
in  x-z  plane) 

Distance  to  hit  point  from  subroutine 
CAFINT  (never  used) 

Unit  vector  of  ray  from  source  image  to 
source 


ENORM 


FACTOR 


Distance  from  source  image  to  source 

Dot  product  of  the  two  vectors  from  the 
source  tangent  to  the  cylinder 

Dot  product  of  end  cap  normal  and  z  axis  of 
source  coordinate  system 

Coefficient  of  the  source  field  used  to 
obtain  the  correct  field  magnitude  for 
sources  mounted  on  plates  or  end  caps  in 
order  to  compensate  for  image  effects 

Set  to  zero  at  beginning  of  subroutine  to 
indicate  electric  sources  only  are  used 


LHIT 


Set  true  if  ray  hits  end  cap  (from  sub¬ 
routine  CAPINT) 


Logical  variable  set  true  to  indicate  at 
least  one  plate  exists  in  the  geometry 

Set  true  if  source  is  mounted  on  end  cap  MC 

End  cap  index  variable 

00  loop  variable 

Sign  change  variable 

DO  loop  variable 

DO  loop  variable 

Sine  of  the  angle  between  the  z  axis  and 
end  cap  plane  where  SNC(l)  refers  to  the 
more  positive  end  cap  and  SNC(2)  refers  to 
the  more  negative  end  cap  (angle  measured 
in  x-z  plane) 

End  cap  source  image  axes  directions 

X,Y,Z  components  of  the  end  cap  unit  normal 
in  reference  coordinate  system 

Array  which  contains  the  two  elliptical 
angles  defining  the  tangent  points  on  the 
cylinder  from  the  source  such  that  the 
tangent  point  N  is  given  by: 

x  =  A*cos  (VTS(N) ) 
y  =  B*cos  (VTS(N) ) 

X,Y,Z  components  of  unit  vectors  defining 
axes  of  end  cap  source  image  coordinate 
system 

A  3x3  matrix  defining  the  source  coordinate 
system  axes  unit  vectors  in  the  RCS 

The  x,y,z  components  of  the  source  image 
location  for  single  reflections  from  each 
end  cap  in  RCS 

Source  image  location  in  end  cap  MC 

The  x,y,z  components  of  the  source  location 
in  the  reference  coordinate  system 


A 


I 


zc 

Point  where  end  cap  intersects  z  axis  of 
reference  coordinate  system,  where  ZC( 1) 
refers  to  the  more  positive  end  cap  and 
ZC(2)  refers  to  the  more  negative  end  cap 

I/O  VARIABLES: 

A.  INPUT 

LOCATION 

CNC 

/GEOMEL/ 

LPLA 

/LPLCY / 

SNC 

/GEOMEL/ 

VXS 

/SORINF/ 

XS 

/SORINF/ 

ZC 

/GEOMEL/ 

B.  OUTPUT 

LOCATION 

BTS 

/BNDSCL/ 

DTS 

/BNDSCL/ 

FACTOR 

/SOURSF/ 

LSRFC 

/SRFACC/ 

VTS 

/BNDSCL/ 

XIC 

/IMCINF/ 

CALLING  ROUTINE: 

GTDORV 

CALLED  ROUTINES: 

i] 


NAME:  GEOMPC  (GTD) 

PURPOSE:  To  compute  variables  pertaining  to  plate-cylinder  inter¬ 

actions  which  are  constant  for  a  given  set  of  plates  and  cylinder,  a 
given  source  and  a  given  frequency. 

METHOD:  This  routine  has  four  main  sections: 

(a)  Determine  corners  and  edges  which  are  attached  to  the 
cyl inder. 

(b)  Determine  image  bounds  on  cylinder  for  reflection  from 
plates. 

(c)  Determine  permissible  ranges  for  cylinder  reflected,  plate 
diffracted  rays. 

(d)  Determine  permissible  ranges  for  plate  diffracted, 
cylinder  reflected  rays. 

Section  (a)  only  needs  to  be  performed  if  the  frequency  or  geometry 
data  set  name  (thus  the  geometry)  is  different  from  the  last  time 
the  routine  was  called,  since  the  source  is  not  associated  with  the 
calculations.  The  other  three  sections  must  be  performed  it  the 
source,  frequency,  or  data  set  name  changed. 

Section  (a):  Determine  corners  and  edges  which  are  attached  to  the 
cyl inder. 

The  code  steps  through  all  the  corners  on  each  plate. 
If  a  corner  is  on  the  cylinder  curved  surface,  the 
indicator  LDC  for  that  particular  plate  and  corner  is 
set  true.  If  an  edge  is  attached  to  the  cylinder,  the 
wedge  angle  number  FNP  is  set  equal  to  -1  to  flag  this. 
See  figure  1  for  an  illustration. 


Figure  1.  Illustration  of  Plate  Attached  to  Cylinder 


Section  (b):  Determine  image  bounds  on  cylinder  for  reflection  from 
plates. 

This  is  performed  by  determining  the  rays  tangent  to 
the  cylinder  sides  from  the  source  image  through  each 
plate  (see  figure  2).  Subroutine  TANG  is  called  to 
determine  the  tangents  and  related  geometry  data  which 
will  be  used  later  in  other  routines.  These  quantities 
are  stored  in  common  block  BNDICL. 


A 


Figure  2.  Illustration  of  Source  Rays  Reflected  by  Plate  MP  and 
Tangent  to  the  Cylinder 


Section  (c):  Determine  permissible  ranges  for  cylinder  reflected, 
plate  edge  diffracted  rays. 

This  task  is  accomplished  by  stepping  through  each  edge 
on  each  plate  and  calling  RFDFIN  to  determine  the  ray 
path  for  a  reflected  ray  from  the  cylinder  incident  on 
the  edge  corners.  Details  for  this  method  are  given  on 
pages  149-154  of  reference  A.  Also  see  the  description 
for  subroutine  RFDFIN.  After  the  ray  vectors  and  the 
angles  they  make  with  the  edge  (see  figure  3)  are 
known,  the  diffraction  limits,  which  are  the  cosines  of 
the  angles,  can  be  computed.  This  information  is 
stored  in  common  block  BNDRCL. 


SOURCE 


EDGE 

ME 


PLATE  MP 


Figure  3.  Illustration  of  Bounds  for  Cylinder  Reflected,  Plate 
Diffracted  Region 


The  last  part  of  this  section  computes  a  branch  cut 
displacement  angle  for  each  edge  on  each  plate.  This 
angle  is  stored  in  common  block  BRNPHW.  It  is  used 
later  in  the  plate-cylinder  ref lected-diffracted, 
diffracted-reflected  field  calculations.  It  is  used  to 
avoid  the  2n-to-0  transition  in  the  phi  angle  of  the 
x-y  plane.  The  angle  places  the  branch  out  behind  the 
cylinder  with  respect  to  the  plate. 

Section  (d):  Determine  permissible  ranges  for  plate  diffracted, 
cylinder  reflected  rays. 

The  geometry  required  for  this  section  is  shown  in 
figure  4.  Each  edge  on  each  plate  is  checked  to  see  if 
it  is  a  valid  diffraction  edge  for  the  given  source 
location.  This  is  determined  by  the  wedge  angle 
number,  which  indicates  if  the  source  can  illuminate 
the  edge  (or  wedge)  on  the  side  closest  to  the 
cylinder.  If  diffraction  is  possible,  LDC  for  this 
particular  plate  and  edge  is  set  true  for  checks  later 
on  in  this  routine.  The  path  of  the  ray  diffracted  by 
a  plate  and  reflected  off  the  cylinder's  more  positive 
end  cap  is  determined  by  choosing  a  starting  reflection 
point  on  the  cylinder's  more  positive  end  cap  and 
calling  subroutine  DPTNFW  to  determine  the  plate 
diffraction  point.  Now  that  the  vector  direction 
between  the  diffraction  and  reflection  points  is  known, 
the  reflection  angle  bound  can  be  calculated.  This 


GEOMPC 


(GTD) 


procedure  is  repeated  using  the  more  negative  end  cap. 
The  favored  starting  location  for  the  reflection  and 
diffraction  point  is  determined  by  the  greater  dot 
product.  The  dot  products  come  from  the  two  rays 
generated  from  the  diffraction  point  to  the  cylinder 
sides  on  the  same  plane  (perpendicular  to  the 
cylinder).  The  starting  point  parameters,  the  dot 
product  and  vector  from  the  favored  diffraction  point 
tangent  to  the  cylinder  (2-D)  are  stored  for  use  in 
subroutine  DPLRCL.  Details  of  the  method  used  for  the 
ray  tracing  in  section  (d)  are  given  on  pages  161-163 
of  reference  A.  Also  see  the  description  for  subrou¬ 
tine  DFRFPT. 


REFLECTION 


Figure  4.  Illustration  of  Starting  Point  Path  for  Plate  Diffracted, 
Cylinder  Reflected  Ray  Tracing  Algorithm 


INTERNAL  VARIABLES: 

VARIABLE  DEFINITION 


Radius  of 
wavelengths 

cylinder 

along 

x  axis 

Radius  of 
wavelengths 

cyl inder 

along 

y  axis 
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Diffraction  limits  for  ray  reflected  by  the 
cylinder  and  diffracted  from  plate 

X,Y  components  of  unit  vectors  for  rays 
tangent  to  the  cylinder  from  diffraction 
point  on  plate  edge  (for  more  negative 
starting  point  on  cylinder) 

X,Y  components  of  unit  vectors  for  rays 
tangent  to  the  cylinder  from  diffraction 
point  on  plate  edge  (for  more  positive 
starting  point  on  cylinder)  (also  see  BTI) 

X,Y  components  of  unit  vectors  for  rays 
tangent  to  the  cylinder  from  diffraction 
point  on  plate  edge  (for  favored  starting 
point  on  cylinder) 

X,Y  components  of  source  image  vectors 
tangent  to  the  cylinder 

Cotangent  of  the  angle  between  the  2  axis 
and  the  end  cap  plane,  where  CTC(l)  refers 
to  the  more  positive  end  cap  and  CTC(2) 
refers  to  the  more  negative  end  cap  (angle 
measured  in  x-2  plane) 

Matrix  which  contains  the  cosine  of  the 
starting  reflected  ray  theta  angle  for 
plate  diffraction,  cylinder  reflection 

Dot  product  of  unit  vectors  of  rays  tangent 
to  cylinder  from  diffraction  point  (for 
more  negative  starting  reflection  point  on 
cylinder) 

Dot  product  of  unit  vectors  of  rays  tangent 
to  cylinder  from  diffraction  point  (for 
more  positive  starting  reflection  point  on 
cylinder)  (also  see  DTI) 

Dot  product  of  unit  vectors  of  rays  tangent 
to  cylinder  from  diffraction  point  (for 
favored  starting  point  on  cylinder) 

Dot  product  of  source  image  vectors  tangent 
to  the  cylinder  (single  reflection  from 
plate  MP) 


6E0MPC 


(GTD) 


FNP 

Wedge  angle  number 

LCD 

Set  true  if  corner  ME  of  plate  MP  is  on 
cyl inder 

LDC 

Set  true  if  edge  M  of  plate  MP  is  strong 
diffracting  part  of  wedge  (FNP<0) 

LFRQFL 

Logical  variable  set  true  if  the  frequency 
is  the  same  as  it  was  the  last  time  this 
rot  tine  was  called 

LGDNFL 

Logical  variable  set  true  if  the  geometry 
data  set  name  is  the  same  as  it  was  the 
last  time  this  routine  was  called 

LSHD 

Logical  variable  used  to  indicate  if  a 
plate  is  totally  shadowed  from  a  source, 
where  LSHD(MP)  =  T  if  plate  MP  is  totally 
shadowed  and  F  if  not  totally  shadowed 

LSRCFL 

Logical  variable  set  true  if  the  source  is 
the  same  as  the  last  time  routine  was 
called 

ME 

Plate  edge  index 

MEC 

Index  variable  used  to  determine  common 
edges 

MEN 

Index  variable  used  to  determine  common 
edges 

MEP 

Array  which  contains  the  number  of  edges  on 
each  plate 

MEX 

Maximum  number  of  edges  on  plate  MP 

MJ 

End  cap  index 

MP 

Plate  index 

MPX 

Integer  of  the  total  number  of  plates  in 
the  geometry 

PDCR 

Phi  component  of  ray  propagation  direction 
after  reflection  from  cylinder  (ray 
diffracted  by  plate  edge  and  then  reflected 
by  cylinder) 
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8ranch  cut  displacement  angle  for  diffrac¬ 
tion  point  along  edge  ME  of  plate  MP 

Distance  from  z  axis  to  plate  corner 

Radius  of  cylinder  at  point  defined  by 
elliptical  angle  VC 

Theta  component  of  ray  propagation  direc¬ 
tion  after  reflection  from  cylinder  (ray 
diffracted  by  plate  edge  and  then  reflected 
by  cylinder) 

Z  component  of  reflection  point  location  on 
cylinder  for  ray  which  is  reflected  by 
cylinder  and  diffracted  by  edge  ME  of  plate 
MP 

Z  component  of  starting  point  location  on 
cylinder  (for  ray  tracing  algorithm)  for 
ray  diffracted  by  plate  edge  and  then 
reflected  by  cylinder 

Z  location  of  the  cylinder  reflection  point 
for  ray  reflected  by  cylinder  and  incident 
on  edge  corners 

Matrix  which  contains  the  unit  edge  vector 
for  all  edges  on  all  plates 

Elliptical  angle  defining  location  of  a 
corner  (2-D) 

Elliptical  angle  defining  reflection  point 
on  cylinder  (2-D)  for  ray  which  is 
reflected  by  cylinder  and  diffracted  by 
edge  ME  of  plate  MP 

Elliptical  angle  defining  starting  point  on 
cylinder  (for  ray  tracing  algorithm)  for 
ray  diffracted  by  plate  edge  and  then 
reflected  by  cylinder 

X,Y,Z  components  of  propagation  direction 
of  ray  incident  on  cylinder  reflection 
point 


Matrix  which  contains  the  length  of  all 
edges  on  all  plates 
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» 

I 


VR 


VTCN 

VTCP 


VTI 


X 

XC 

XDC 


XI 


XOB 


X  S 

ZC 


Phi  angle  defining  location  of  reflection 
point  on  cylinder  for  ray  reflected  by  the 
cylinder  and  then  incident  on  the  edge 
corners 

Phi  angle  defining  vectors  from  the  dif¬ 
fraction  point  tangent  to  the  cylinder  for 
the  more  negative  end  cap 

Phi  angles  defining  vectors  from  source 
image  point  through  plate  MP  tangent  to  the 
cylinder;  also  from  edge  diffraction  point 
for  the  more  positive  end  cap 

Elliptical  angle  defining  direction  of  the 
two  rays  from  image  source  tangent  to  the 
cylinder  (single  reflection  of  source  ray 
from  plate  MP) 

Matrix  which  contains  the  x,y,z  components 
of  all  plate  corners  in  RCS 

Modified  plate  corner  location  used  in 
determining  cylinder  reflection  plate  dif¬ 
fraction  limits 

X,Y,Z  components  of  starting  diffraction 
point  location  on  edge  ME  (for  ray  tracing 
algorithm)  for  ray  diffracted  by  plate  edge 
and  reflected  by  cylinder 

Matrix  containing  the  x,y,z  components  of 
the  source  image  locations  for  single  and 
double  reflections  off  all  plate 
combinations 

Cylinder  reflection  point  location  for  ray 
diffracted  by  plate  edge  and  then  reflected 
by  the  cylinder 

Also,  x,y,z  components  of  starting  reflec¬ 
tion  point  on  cylinder 

The  x,y,z  components  of  the  source  location 
in  RCS 

Point  where  end  cap  intersects  z  axis  of 
reference  coordinate  system,  where  ZC ( 1 ) 
refers  to  the  more  positive  end  cap  and 
ZC(2)  refers  to  the  more  negative  end  cap 
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I/O  VARIABLES: 

A.  INPUT 

LOCATION 

A 

/GEOMEL/ 

B 

/GEOMEL/ 

CTC 

/GEOMEL/ 

FNP 

/FNANG/ 

/LSHDT  / 
S 


/GEOPLA/ 

/GEOPLA/ 

/GEOPLA/ 


/GEOPLA/ 

/IMAINF/ 

/SORINF/ 

/GEOMEL/ 

LOCATION 

/BNDRCL/ 

/BNODCL/ 

/BNOICL/ 

/BNODCL/ 

/BNODCL/ 

/BNOICL/ 


GEOMPC 
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LDC 

/LDCBY/ 

PDCR 

/BNDDCL/ 

PHWR 

/BRNPHW/ 

TDCR 

/BNDDCL/ 

UCD 

/BNDRCL/ 

UDC 

/BNJDCL/ 

VCD 

/BNDRCL/ 

VDC 

/BNDOCL/ 

VTI 

/BNDICL/ 

CALLING  ROUTINE: 
GTDDRV 

CALLED  ROUTINES: 

BTAN2 

DPTNFW 

RFDFIN 

TANG 

REFERENCE: 


A.  R.  J.  Marhefka,  "Analysis  of  Aircraft  Wing-Mounted  Antenna 
Patterns,"  Report  2902-25,  June  1976,  The  Ohio  State  University 
ElectroScience  Laboratory,  Department  of  Electrical  Engi¬ 
neering;  prepared  under  Grant  No.  NGL  36-008-138  for  National 
Aeronautics  and  Space  Administration. 
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(4.  DETERMINE  PARAMETERS 
FOR  RAY  DIFFRACTED  BY 
PLATE  AND  THEN  REFLECTED 
OFF  OF  CYLINDER) 


STEP  THROUGH  PLATES 


^^IS  PLATE\. 
^  MP  TOTALLY  ^ 
SHADOWED  FROM  . 
SOURCE? 


STEP  THROUGH  EDGES 


IF  EDGE  ME  IS  VALID 
DIFFRACTING  EDGE. 

SET  LDC  IMP.ME)  -  TRUE 


1.  NAME:  GETARG  (GTO,  INPUT,  MOM,  OUTPUT) 

2.  PURPOSE:  GETARG  will  get  the  specified  argument  from  the  argument 
list. 

3.  METHOD:  By  specifying  the  location  in  the  INTARG  array  and  the  type 
of  argument,  GETARG  will  return  with  the  needed  argument.  If  a 
NOPCOD  is  found,  the  default  value  is  returned  in  the  INTARG 
location. 


4.  INTERNAL  VARIABLES: 
VARIABLE 

LITTYP 

LOCARG 

NAMSYM 

NDFALT 

NDXARG 

NTPARG 

NUMSYM 

5.  I/O  VARIABLES: 

A.  INPUT 

FLTLIT 

INTARG 

I  PASS 

ISOFF 

KOLCOD 

KOLNAM 

KOLVAL 

LITNUM 


DEFINITION 
Literal  type  code 

Location  of  data,  symbol  table,  or  literal 
table 

Symbol  name 

Default  for  requested  argument 
Index  to  the  INTARG  array 
Argument  type 
Symbol  table  pointer 

LOCATION 

/PARTAB/ 

/ARGCOM/ 

/ARGCOM/ 

/ADEBUG/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 
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LUPRNT 

/ADEBUG/ 

NDATBL 

/PARTAB/ 

NDFALT 

F.P. 

NDXARG 

F.P. 

NOPCOD 

/ADEBUG/ 

NPDATA 

/PARTAB/ 

NTFLPT 

/ADEBUG/ 

NT  I  NT 

/ADEBUG/ 

NTPARG 

F.P. 

NTSYMB 

/ADEBUG/ 

B.  OUTPUT 

LOCATION 

FLTARG 

/ARGCOM/ 

INTARG 

/ARGCOM/ 

CALLING  ROUTINES:* 

ESPARM  (2) 

PRTSYM  (3) 

EXCDRV  (2,3) 

RESTRT  (1) 

FLODRV  (2,3,4) 

SETDRV  (3) 

GEODRV  (1) 

SOLDRV  (3) 

GETGEO  (1,2, 3, 4) 

TSKXQT  (2,3,4) 

LOOORV  (3) 

ZIJDRV  (2,3) 

*1- INPUT 

2- GTD 

3- MOM 

4- OUTPUT 


GETARG 


(GTD,  INPUT,  MOM,  OUTPUT) 
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MICROCOPY  RESOLUTION  TEST  CHART 

NATPONAt  BUREAU  OF  STANDAR0S-1963-A 


1.  NAME:  GETFLD 


(GTO) 


2.  PURPOSE:  This  routine  Interprets  the  argument  list  data  generated 
by  ESRC  and  EFIELD  commands  in  order  to  calculate  source  point  and 
field  point  geometrical  and  electrical  data. 

3.  METHOD:  For  ESRC  data  the  basic  parameters  returned  by  ESPARM  are 
used  to  calculate  source  (x.y.z)  location,  source  field  polariza¬ 
tion,  source  amplitude,  and  source  type,  as  follows: 


SOURCE 

ISRCE 

LOCATION  OR 

SOURCE 

SOURCE 

GETFLD 

PROPAGATION 

SOURCE 

NAME 

TYPE 

CALL# 

VECTOR 

AMPLITUDE  POLARIZATION 

Dipole 

-1 

1 

(VTHFTA  +  ^VPHl) 

/\ 

X 

/s 

2 

(x.y.z) 

y 

3 

* 

Cylinder 

-2 

(Not 

Implemented) 

wave 

Spherical 

-3 

1 

Ex 

X 

s\ 

2 

(x.y.z) 

Ey 

3 

Ez 

Plane 

-4 

1 

0 

_  _ 

wave 

2 

(-kx,-ky,-kz) 

EG 

I 

3 

E* 

The 

source  amplitude  Is 

VTHETA  +  jVpuT  for 

the  polarization 

selected 

by  the  user. 

and  zero  for  the  other  two  polarizations. 

The 

fields 

from  a  spherical  or  plane  wave  Include  both 

co-  and 

cross-polarized  components,  as  specified  by  the  ECC  Item. 


For  EFIELD  data  the  observation  point  location  Is  determined  from 
the  FLDDRV  loop  Indices  passed  to  GETFLD  through  common  block 
FLDVAL.  The  quantities  calculated  for  each  coordinate  system  are: 


COORDINATE 

SYSTEM 

FIELD 

TYPE 

OBSERVATION 
POINT  LOCATION 

NUMBER  OF 

FIELD  COMPONENTS 

FIELD  COMPONENT 
TANGENTS 

Spherical 

0  (FF) 

r 

2 

A  A 

e.4> 

Spherical 

1  (NF) 

(x.y.z) 

3 

AAA 

r,0,4> 

Rectangular 

1  (NF) 

(x.y.z) 

3 

AAA 

x.y.z 

Cylindrical 

1  (NF) 

(x.y.z) 

3 

AAA 

P,4>,z 

GETFLO 


(GTD) 


If  GETFLO  Is  called  with  an  Invalid  call  number,  an  error  message  Is 
printed,  and  execution  terminates. 


INTERNAL  VARIABLES: 

VARIABLE 

CURENT 

IC 


DESCRIPTION 

Complex  excitation  parameter  for  the  source 

Pointer  to  polarization  component  of  source 
for  call  JCALL  to  GETFLD 


ICT 

ISCTYP 

ITYPE 

JCALL 

L00P1 

L00P2 

L00P3 
Ml,  M2 


Internal  variable  indicating  coordinate 
system  type 

Source-of-f Ield  type  for  this  GETFLO  call 

Problem  type:  2  =  ESRC,  4  =  EFIELD 

Source  point  number  or  observation  point 

number  for  which  this  routine  is  called 

Pointer  to  outer  loop  observation  point 

position  value 

Pointer  to  center  loop  observation  point 

position  value 

Pointer  to  Inner  loop  observation  point 

position  value 

Internal  variables  used  to  compute  L00P2 
and  L00P3 


NAMGEO  Name  of  geometry  data  set 

NT  AN  Number  of  source  or  field  tangential  compo¬ 

nents 


PHI 

R 

THETA 

TX,TY,TZ 


Azimuthal  angle  In  cylindrical  or  spherical 
coordinate  system 

Radial  distance  In  cylindrical  or  spherical 
coordinate  system 

Polar  angle  In  spherical  coordinate  system 

Arrays  of  NTAN  tangential  unit  vector 
components 


uz 


Value  of  outer  loop  observation  point 
parameter 


XC.YC.ZC 
I/O  VARIABLES: 
A.  INPUT 
CURENT 
E 

FARFLO 

ICTYPE 

ISRCE 

ITYPE 

JCALL 

LI 

L2 

L3 

LUPRNT 

NAMGEO 

NU 

U1 

VI 

W1 


Value  of 
parameter 

center 

loop 

observation 

point 

Value  of 
parameter 

Inner 

loop 

observation 

point 

Source  or 

field  point  location 

LOCATION 

F.P. 

/FLDVAL/ 

/FLOVAL/ 

/FLDVAL/ 

/FLDVAL/ 

F.P. 

F.P. 

/FLDVAL/ 

/FLDVAL/ 

/FLDVAL/ 

/AOEBUG/ 

F.P. 

/FLDVAL/ 

/FLDVAL/ 

/FLDVAL/ 

/FLDVAL/ 

/FLDVAL/ 
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NAME:  GETGEO 


(GTD,  MOM,  OUTPUT) 


PURPOSE:  Determine  the  contents  of  the  specified  geometry  data  set. 

METHOD:  Each  entry  of  the  geometry  data  set  pointed  to  by  INTARG 
(LOCGEO)  Is  checked  for  geometry  type,  and  the  appropriate  counters 
Incremented,  when  that  geometry  type's  tag  Id  Is  encountered  In 
SEGTBL. 

INTERNAL  VARIABLES: 


VARIABLE 


DESCRIPTION 


I/O  VARIABLES: 


Geometry  SEGTBL  block  loop  Index 
Pointer  to  last  entry  In  this  SEGTBL  block 


INDEX 


Pointer  to  geometry  type:  1  =  MOM,  2  =  GTD 


ITAG1 


IYRLOC 


Geometry  entry  tag  Id 

GTD  geometry  type:  1  *  Plate,  2  *  Cylinder, 
3  =  End  cap 

Geometry  data  set  location  In  NDATBL 


LOCGEO 


Pointer  (»2)  to  geometry  specification  in 
INTARG  array 


NAMEYR 


Geometry  data  set  name 


NAMGEO 


Pointer  to  default  geometry  name  in  NCODES 


NCORN 


Number  of  corners  on  GTD  plate 


A.  INPUT 


LOCATION 


OBGPRT 


/ADEBUG/ 


INTARG 


/ARGCOM/ 


IP217 


/GEODAT/ 


/SE6MNT/ 


ISGTBL 


/SEGMNT/ 


KOLCOL 


/PARTAB/ 


PREVIOUS  PAOE 

IS  BLANK 


GETGEO 


(GTD,  MOM,  OUTPUT) 


>.  CALLING  ROUTINES:* 
EXCDRV  (2,3) 

FLDORV  (2,3) 

SOLDRV  (3) 

TSKXQT  (2,3,4) 
ZIJDRV  (2,3) 

.  CALLED  ROUTINES: 
ASSIGN 
CONVRT 
GETARG 
GETSEG 
STATIN 
STATOT 
WLKBCK 


2- GTD 

3- MOM 

4- OUTPUT 


(GTO,  MOM,  OUTPUT) 
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1.  NAME:  GETKWO 


(INPUT) 


2. 


3. 

4. 


5. 


PURPOSE:  To  determine  if  the  name  In  the  cal  1  1r-j  argument  Is  a 
keyword  and.  If  so,  to  return  the  pointer  to  Its  location  in  the 
keyword  table. 

METHOD:  The  keyword  table  Is  searched  until  an  entry  for  the  argu¬ 
ment  NAME  Is  found. 


INTERNAL  VARIABLES: 

VARIABLE 

INDEX 

NAME 


DEFINITION 

If  not  0,  pointer  to  the  keyword  name 
In  the  KWNAME  array 

Encoded  name  to  be  searched  for  in  the 
keyword  name  array 


I/O  VARIABLES: 


INPUT 

LOCATION 

KWMAX 

/PARTAB/ 

KWNAME 

/PARTAB/ 

NAME 

F.P. 

NCODES 

/PARTAB/ 

NERCOD 

/INPERR/ 

NTAB 

/SCNPAR/ 

NTKEYW 

/ADEBUG/ 

NVALMX 

/SCNPAR/ 

OUTPUT 

LOCATION 

INOEX 

F.P. 

NCODE 

/SCNPAR/ 

NSCNER 

/SCNPAR/ 

NVAL 

/SCNPAR/ 
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8ET  CODE  TYPE  TO  KEYWORD  IN  SCAN 
TABLE  NCODE.  SET  VALUE  TO  INDEX 
IN  SCAN  TABLE  NVAL 


NAME:  GETKWV 


(GTD,  INPUT,  MOM,  OUTPUT) 


PURPOSE:  Get  the  value  of  a  keyword. 

METHOD:  GETKWV  uses  a  variable  In  common  for  each  keyword.  This 
value  Is  returned  to  the  calling  routine. 


INTERNAL  VARIABLES: 

VARIABLE 

KW 

NDX 

NDXKWD 

VALUKW 

I/O  VARIABLES: 

A.  INPUT 
EPSR 
FRQMHZ 
ISON 
KWCOND 
KWEPSR 
KWFRQ 
KWNAME 
KWNMFL 
KWTIME 
LUPRNT 
NCODES 
NDXKWD 
NFILES 


DEFINITION 

NDXKWD 

Index  to  the  NCODES  array  for  a  keyword 

Keyword  number 

Keyword  value  to  be  returned 


LOCATION 

/AMPZIJ/ 

/AMPZIJ/ 

/ADEBUG/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/ADEBUG/ 

/PARTAB/ 

F.P. 

/IOFLES/ 
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GETKWV 


(GTD,  INPUT,  MOH,  OUTPUT) 


SIGMA 

/AMPZIJ/ 

TIMTGO 

/SYSFIL/ 

B.  OUTPUT 

LOCATION 

IERRF 

/ADEBUG/ 

VALUKW 

F.P. 

CALLING  ROUTINE: 

OMPDRV 

CALLED  ROUTINES: 

ASSIGN 


ERROR 


STATOT 


1.  NAME:  GETPNT 


(INPUT) 


2.  PURPOSE:  To  retrieve  the  coordinates  of  the  points  specified  In  the 
Input  argument  list. 

3.  METHOD:  The  array  PTT8LE  Is  searched  for  the  correct  point  numbers. 
Failure  to  locate  the  point  results  In  setting  the  point  number 
negative  In  the  calling  argument  and  returning  to  the  calling  sub¬ 
routine.  If  the  point  Is  found.  Its  global  coordinates  are  returned 
to  the  calling  subroutine  with  a  positive  point  number. 


INTERNAL  VARIABLES: 
VARIABLE 


DEFINITION 


IP1 

Point  to  be  searched  for 

IP2 

Number  of  second  point  to  be 

11 

Point  number  for  first  point 

12 

Point  number  for  second  point 

NPTS 

Interval  variable  for  IPTS 

XI 

X  coordinate  of  point  IP1 

X2 

X  coordinate  of  point  IP2 

Y1 

Y  coordinate  of  point  IP1 

Y2 

Y  coordinate  of  point  IP2 

Z1 

Z  coordinate  of  point  IP1 

Z2 

Z  coordinate  of  point  IP2 

I/O 

VARIABLES: 

A. 

INPUT 

LOCATION 

DBGPRT 

/ADEBUG/ 

IPTS 

/PNTTBL/ 

IPTTBL 

/PNTTBL/ 

11 

F.P. 
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GETPNT 


(INPUT) 


12 

F.P. 

PTTBLE 

/PNTTBL/ 

OUTPUT 

LOCATION 

XI 

F.P. 

X2 

F.P. 

Y1 

F.P. 

Y2 

F.P. 

Z1 

F.P. 

12 

F.P. 

6.  CALLING  ROUTINES: 
LNKGTD 

PATCH 

PLATE 

PRTGTO 

WYRDRV 

7.  CALLED  ROUTINES: 
ASSIGN 

STATIN 

STATOT 

HLKBCK 


A  V-V4 


NAME:  GETSE6 


(GTO,  INPUT,  MOM) 


PURPOSE:  This  subroutine  recovers  the  SEGTBL  data  associated  with  a 
given  data  block. 

METHOD:  If  the  current  data  block  has  been  changed,  then  PUTSYM  Is 
called  to  store  the  current  data  block.  Otherwise  GETSYM  Is  called 
to  recover  the  requested  data  block. 


INTERNAL  VARIABLES: 
VARIABLE 


MAXBLK 

MAXSEG 


NAMSEG 


NDXBLK 

NUMBLK 

I/O  VARIABLES 
A.  INPUT 
DBGPRT 
IPLTAG 
IP2I7 
ISGTBL 
ISOFF 
LUPRNT 
MAXBLK 
MAXSEG 


NDXBLK 


DEFINITION 

The  number  of  filled  entries  In  the  last 
data  block 

The  total  number  of  data  blocks 

The  maximum  number  of  segments  In  each  data 
block 

Input  argument  designating  symbol  name  to 
be  retrieved 

The  current  data  block 

The  requested  data  block 


LOCATION 

/AOEBUG/ 

/GTDOAT/ 

/GEOOAT/ 

/SEGMNT/ 

/ADEBUG/ 

/ADEBUG/ 

/SEGMNT/ 

/SEGMNT/ 

/SEGMNT/ 


PREVIOUS  PAGE 
IS  BLANK 


GETSEG 


(GTD,  INPUT,  MOM) 


NUMBLK 

F.P. 

SEGTBL 

/SEGMNT/ 

UPOBLK 

/SEGMNT/ 

OUTPUT 

LOCATION 

ISEG 

/SEGMNT/ 

NDXBLK 

/SEGMNT/ 

SEGTBL 

/SEGMNT/ 

UPOBLK 

/SEGMNT/ 

6.  CALLING  ROUTINES:* 
BUBPLE  (1) 

CABC  (3) 

CNTGND  (3) 

CNVGTO  (1) 

EXCDRV  (2,3) 

FARFLD  (3) 

GEODRV  (1) 

GETGEO  (1,2,3) 
GTDORV  (2) 

JCTION  (1) 

LNKGTO  (1) 

LNKJCT  (1) 

LODORV  (3) 

LUOORV  (3) 


6ETSEG 


(GTD,  INPUT,  MOM) 


PLTDRV  (1) 

PLTSEG  (1) 

PRTGTD  (1) 

PUTSEG  (1,2,3) 
SEJCON  (2,3) 
SOLDRV  (3) 

SPWORV  (3) 

SUBPAT  (1) 
WYRDRV  (1) 

7.  CALLED  ROUTINES: 
ASSIGN 
GETSYM 
PUTSYM 
STATIN 
STATOT 
WLKBCK 


*1- INPUT 

2- GTD 

3- MOM 

i 

I 


1.  NAME:  GETSYM  (GTO,  INPUT,  MOM,  OUTPUT) 

2.  PURPOSE:  To  retrieve  the  file  records  specified  for  the  symbol 
MATNAM  and  place  them  In  the  specified  In-core  array. 

3.  METHOD:  Calculate  the  record  length  and  symbol  attributes.  Deter¬ 
mine  the  file  number  and  edition  calls  to  RDEFIL  to  retrieve  the  in 
the  records  specified. 

Any  GEMACS  file  may  contain  more  than  one  edition  of  a  data  set. 
For  example,  when  a  data  set  is  generated  in  a  loop,  there  will  be 
as  many  editions  of  the  data  set  as  there  are  passes  through  the 

loop.  The  format  of  a  multiple  edition  data  set  is  shown  in 
figure  1.  The  global  first  word  location  of  the  edition  being 
accessed  (the  "present"  edition)  is  stored  in  NDAT8L  column  KOLFST. 

To  access  the  correct  record  number  of  the  present  edition,  GETSYM 
calls  FNDREC  which  returns  the  first  global  record  of  the  present 
edition.  This  value  is  added  to  the  specified  record  numbers.  For 
example,  suppose  for  the  file  in  figure  1,  the  present  edition  was 
edition  #3  (LOCFST  =  79)  and  GETSYM  was  called  for  record  numbers  5 
through  8.  (These  correspond  to  global  records  23-26.)  FNDREC 
returns  the  record  number  for  word  79  as  19.  Hence  the  global 
record  numbers  for  file  retrieval  are: 

IREC1  =  5  +  19  -  1  =  23 

IREC2  =  8  +  19  -  1  =  26 

File  retrieval  proceeds  as  shown  in  figure  2.  Assume  that  the 

current  location  of  the  file  (LOCNOW)  is  at  the  end  of  record  7  of 
the  third  edition  (LOCNOW  =  114).  Since  IRECNW  (=  25)  is  greater 
than  the  first  record  to  be  read,  the  file  is  rewound.  Each  record 
of  the  file  up  to  the  last  record  desired  is  read,  but  only  the 
desired  records  are  retained,  as  shown  in  figure  3.  The  first  22 
records  are  read,  but  each  overwrites  the  previous  one.  When  record 
23  Is  read.  It  overwrites  22,  but  since  record  23  is  one  we  wish  to 
retain,  the  storage  pointer  LOCSTR  is  incremented  five  words  (length 
of  record  23)  so  that  record  24  when  read  will  not  overwrite  record 
23.  In  the  same  way,  once  record  24  has  been  read,  LOCSTR  is  incre¬ 
mented  another  four  words  (length  of  record  24)  so  that  record  25 
can  be  read  without  overwriting  record  24.  Thus,  at  the  end  of 
GETSYM,  the  data  on  the  requested  records  of  the  symbol  are  con¬ 
tained  sequentially  In  the  specified  TMPBUF  array. 

Two  Important  special  cases  arise  with  GETSYM.  When  GETSYM  is 
called  with  a  null  symbol,  all  internal  variables  are  reset  to  zero. 
Second,  when  GETSYM  Is  called  with  a  valid  symbol,  but  with  record 
numbers  equal  to  zero,  the  file  associated  with  that  symbol  is  posi¬ 
tioned  at  the  beginning  of  the  present  edition  as  determined  by 
LOCFST. 
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GETSYM 


(GTD,  INPUT,  MOM,  OUTPUT) 


GEMACS  PHYSICAL  RECORD 

RECORD  NUMBER  RECORD  NUMBER  LENGTH  (WORDS) 


LOCFST 


EDITION 
NO.  1 


1 

2 

3 

4 

5 

6 

7 

8 
9 


EDITION 
NO.  2 


EDITION 
NO.  4 

(PARTIAL) 


1 

2 

3 

4 
6 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 


Figure  1.  A  Multiple  Edition  Data  Set  with  Three  Complete  and 
One  Partial  Editions  (The  matrix  stored  is  a  banded, 
upper  triangular,  real  matrix  derived  from  a  9  x  9 
real  matrix.) 
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GETSYM  (GTO,  InPUT,  MOM,  OUTPUT) 

MATNAM 


IREC1  =23- 

IRECNW  =  25  - 
IREC2  =  26  - 


EDITION  2 


EDITION  4 


LOCFST  =  79 


LOCNOW  =  1 14 


Figure  2.  Important  GETSYM  Variables 


LOCSTR= 1 


LOCSTR  =  1 


TMPBUF  IRECORD  231  f 

>  _ |  LOCSTR  =  1 

TMPBUF  IRECORD  23;  RECORD  24  j  / 

_ f _ T _  LOCSTR  =  6 

TMPBUF  |reCORD  23{RECORD  24  j  RECORD  25  / 

|  LOCSTR =10 

LOCSTR  POINTER 

Figure  3.  Illustrating  How  File  Records  Are  Placed  in  TMPBUF 


LOCSTR  =  6 


LOCSTR  =  10 
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GETSYM 


(GTD,  INPUT,  MOM,  OUTPUT) 


INTERNAL  VARIABLES: 

VARIABLE 

I  BAND 

IFILE 

I LOWER 

IORDER 

IR 

IRC1 

IRC2 

I  READ 

IRECNW 

IRECST 

IREC1 

IREC2 

IROWM1 

IR1 

IR2 

ISV 

IT 

IUPPER 

IWRD1 

KBAND 


DEFINITION 

Flag  indicating  a  banded  data  set 

The  logical  unit  designation  for  the  symbol 

Flag  indicating  a  lower  triangular  matrix 

Flag  indicating  a  transposed  matrix 

Index  over  file  records  to  be  read 

First  local  record  to  be  retrieved 

Last  local  record  to  be  retrieved 

First  file  record  to  be  read 

Record  number  of  present  file  position 

Record  number  of  beginning  of  the  edition 

Global  record  number  corresponding  to  IRC1 

Global  record  number  corresponding  to  IRC2 

First  record  to  be  retrived  or*  file  mVffet 
one 

Internal  variable  equal  to  IRC1 

Internal  variable  equal  to  IRC2 

Pointer  to  symbol  name  in  symbol  table 

Pointer  to  TMPBUF  array  for  in-core  storage 
transfer 

Flag  Indicating  an  upper  triangular  matrix 

First  word  address  for  present  edition  of 
data  set 

Flag  indicating  a  banded  parent  data  set 
Pointer  to  data  set  linked  to  parent 


KLINK 


GETSYM 

(GTD,  INPUT,  MOM,  OUTPUT) 

LINK 

Pointer  to  parent  data  set  in  symbol  table 

LOCFST 

Location  of  first  word  for  this  edition  of 
symbol 

LOCNON 

Current  location  of  logical  unit  containing 
data  set 

LOCSTR 

Location  in  the  TMPBUF  array 

LSTWRD 

Last  word  of  data  set  to  be  retrieved 

LWRUPR 

Flag  indicating  a  triangular  matrix 

MATNAM 

Input  argument  designating  symbol  name  to 
be  retrieved 

MAXWRD 

Total  number  of  words  to  be  retrieved 

MORE 

Flag  set  if  specified  attribute  is  present 
in  symbol 

NO 

Dummy  variable  (=  1) 

NA 

Alpha  format  of  symbol  name 

NAMPRT 

Symbolic  name  of  parent  data  set 

NAMSAV 

Saved  value  of  current  MATNAM  for  next  call 

NBITWD 

The  bit  set  attribute  word  for  the  data  set 

NPRELM 

Number  of  computer  words  per  element  of  the 
data  set 

NPRPRT 

Number  of  rows  in  parent 

NPRREC 

Number  of  rows  in  this  record 

NUMROM 

Number  of  rows  in  symbol 

TMPBUF 

Input  argument  designating  array  into  which 
data  are  to  be  retrieved 

I/O  VARIABLES: 

A.  INPUT 

LOCATION 

OBGPRT 


/ADEBUG/ 


GETSYM 


(GTD,  INPUT,  MOM,  OUTPUT) 


FLTSYM 

IOFILE 

IRC1 

IRC2 

ISOFF 

ISON 

KBBANO 

KBCPLX 

KBDPRE 

KBLWRT 

KBORDR 

KBUPRT 

KOLB IT 

KOLFST 

KOLLNK 

KOLLOC 

KOLNAM 

KOLROW 

LUPRNT 

MATNAM 

NOATBL 

NPDATA 

OUTPUT 


/SYHSTR/ 

/IOFLES/ 

F.P. 

F.P. 

/ADEBUG/ 

/ADEBUG/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/ADEBUG/ 

F.P. 

/PARTAB/ 

/PARTAB/ 

LOCATION 

/ADEBUG/ 


IERRF 


SETSYH 


(GTO,  INPUT,  MOM, 


XI 


CALLING  ROUTINES:1 
BACSUB  (3) 

BANDIT  (3) 

DECOMP  (3) 

OMPDRV  (1, 2,3,4) 
EGFMAT  (3) 

EXCDRV  (2,3) 
FLDDRV  (3,4) 
FLDOUT  (4) 

GEODRV  (1) 

GETARG  (1, 2,3,4) 
GETSEG  (1,2,3) 
LODDRV  (3) 

LUDDRV  (3) 

PRTSYM  (3) 

PUTSEG  (1,2,3) 
PUTSYM  (1, 2,3,4) 
REBLCK  (3) 

RESTRT  (1) 

SETDRV  (3) 

SOLDRV  (3) 

STRTUP  (2,3,4) 


*1- INPUT 

2- GTD 

3- MOM 

4- OUTPUT 


y// 


GETSYM 


(GTD,  INPUT.  MOM.  OUTPUT) 


SUBPAT  (1) 

SYMDEF  (1.2, 3, 4) 
WRTCHK  (1,2, 3,4) 
ZIJDRV  (2,3) 

7.  CALLED  ROUTINES: 
ASSIGN 
CONVRT 
ERROR 
FNDREC 
IBITCK 

IJMOD  (Intrinsic) 

HOVFIL 

ROEFIL 

STATIN 

STATOT 

WLKBCK 


*1- INPUT 

2- GTD 

3- MOH 

4- OUTPUT 
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1.  NAME:  GNDREF 


(MOM) 


2.  PURPOSE:  This  subroutine  multiplies  the  field  components  In  and 
normal  to  the  plane  of  Incidence  by  the  proper  ground  plane  reflec¬ 
tion  coefficient  and  returns  the  total  field  after  reflection. 

3.  METHOD:  For  a  perfect  plane,  the  reflected  field  Is  set  to  the 
negative  of  the  Incident  field.  For  an  Imperfect  ground  plane,  the 
Incident  field  Is  broken  into  Its  x,  y,  and  z  components.  These  are 
modified  by  the  reflection  coefficients  and  returned  In  the  subrou¬ 
tine's  calling  arguments. 

The  reflected  electric  and  magnetic  fields  are  given  by 


Er  *  RvEj  +  (R„  -  RyXEj  •  p)  P 
and 

Hr  =  RrHj  +  <RV  -  Rjj)  (Hj  •  p)  p 


where  Ej  and  Hi  are  the  Incident  fields  reflected  in  a  perfectly 
conducting  ground,  or  the  field  due  to  the  Image  of  the  source,  and 
p  Is  the  junlt  vector  normal  to  the  plane  of  Incidence,  which  is 
given  by  z  x  £,  where  £  Is  the  propagation  vector  unit  normal. 

4.  INTERNAL  VARIABLES: 

VARIABLE  DEFINITION 

CABJ  The  x  component  of  the  unit  vector  along 

the  axis  of  the  wire 

FX  The  x  component  of  the  initial  complex 

electric  or  magnetic  field  (For  a  wire 

source  this  is  the  z  component) 

FXI  The  Imaginary  part  of  FX 

FXR  The  real  part  of  FX 

FXY  For  electric  field  (Rh-Rv)  (El  •  P)  and  for 

magnetic  field  (Rv-Rh)(^I  *P) 

FY  The  y  component  of  the  initial  complex 

electric  or  magnetic  field  (For  a  wire 

source  this  is  the  p  component) 
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GNDP.EF  (MOM) 


FYI 

FYR 

FZ 

FZI 
FZR 
I PATCH 
IPERF 
IWIRE 

PX 


The  Imaginary  part  of  FY 
The  real  part  of  FY 

The  z  component  of  the  initial  complex 
electric  or  magnetic  field  (for  a  wire 
source  this  term  is  set  to  zero) 

The  imaginary  part  of  FZ 

Th3  real  part  of  FZ 

A  flag  indicating  a  patch  source 

A  flag  Indicating  a  perfect  ground 

A  flag  indicating  a  wire  source  segment  and 
that  a  local  cylindrical  coordinate  system 
Is  used 

The  x  component  of  the  unit  vector  normal 
to  the  wire  axis 


PY 


The  y  component  of  the  unit  vector  normal 
to  the  wire  axis 


REFH 

REFV 

RHOXfRHOY,RHOZ 


The  reflection  coefficient  for  polarization 
normal  to  the  plane  of  incidence 

The  reflection  coefficient  for  polarization 
in  the  plane  of  incidence 

X,Y,  and  Z  components  of  the  unit  vector 
normal  to  the  wire  axis 


SABJ 


The  y  component  of  the  unit  vector  along 
the  axis  of  the  wire 


SALPR 

TFX,TFY,TFZ 

I/O  VARIABLES: 
A.  INPUT 


The  reflected  z  component  of  the  unit 
vector  along  the  axis  of  the  wire 

The  x,y,  and  z  components  of  the  complex 
electric  or  magnetic  field  upon  exit 


LOCATION 


CABJ  /AMPZIJ/ 

FXI.FXR  F.P. 
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IPERF 


ISOFF 

ISON 

IWIRE 

PX 

PY 

REFH 

REFV 

RHOX 

RHOY 

RHOZ 

SABJ 

SALPR 

B.  OUTPUT 
FXI.FXR 
FYI.FYR 
FZI.FZR 

CALLING  ROUTINES: 


/AMPZIJ/ 

/ADEBUG/ 

/AOEBUG/ 

F.P. 

/AMPZIJ/ 

/AMPZIJ/ 

/AMPZIJ/ 

/AMPZIJ/ 

/AMPZIJ/ 

/AMPZIJ/ 

/AMPZIJ/ 

/AMPZIJ/ 

/AMPZIJ/ 

LOCATION 

F.P. 

F.P. 

F.P. 


NERFLD 


GNDREF 


(MOM) 


7.  CALLED  ROUTINES: 
ASSIGN 
STATIN 
STATOT 
WLKBCK 


■  -i 

■  -  .H 


>  : 


538 


'»•  ^oVVs'V-  •p.  ■*.  v  .*  . 


,*  v 1  •  •  - .  ■  '  .  •  ■ 

%  *.  *.  *,  *  *  •. * • '  •»  »  « * «•% 


100 
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PURPOSE:  To  rotate  and  translate  a  GTD  object  as  specified  by  a 

GEMACS  coordinate  system  number. 

METHOO:  The  GEMACS  coordinate  system  table  is  searched  for  a  match 
to  the  coordinate  system  number  specified.  The  GTD  object  center 
point  is  set  to  the  center  of  that  coordinate  system.  Then  the  GTD 
object  2-axis  is  rotated  by  the  rotation  angles  of  the  coordinate 
system  and  the  equivalent  (0,$)  angles  are  obtained  from  the  rotated 
z-axls. 

(Z) 

Z  Or  f 


_  .A, 

- (v) 


/  GTD  CYLINDER  IN  PRIMED 
l  COORDINATE  SYSTEM 

(REFERENCE  COORDINATE 
SYSTEM) 


(XTRL.  YTRL,  ZTRL) 


GEMACS  GLOBAL 

COORDINATE 

SYSTEM 


INTERNAL  VARIABLES: 


VARIABLE 


DEFINITION 


ICSYS 


Coordinate  system  of  GTD  geometry. 


Pointer  to  coordinate  system  parameters  in 
/CSYSTM/ 

X-Y  plane  projection  of  z  axis  unit  vector 


RH0D2 


RHO  *  RHO 


PREVIOUS  PAGE 
IS  BLANK 


RX,RY,RZ 

Coordinate  system  rotation  angles  about 
y-,  and  z-axis,  respectively. 

ST 

Sin  (THETAR) 

THETAR.PHIR 

Polar  and  azimuth  angles  (radians)  of 
object  z-axis 

XD,YD,ZD 

GTO  object  z-axis  unit  vector 

XTRL,YTRL,ZTRL 

GTO  object  center  point  after  translation 

I/O  VARIABLES: 

A.  INPUT 

LOCATION 

CX 

/CSYSTM/ 

CY 

/CSYSTM/ 

CZ 

/CSYSTM/ 

ICSYS 

F.P. 

IOCSYS 

/CSYSTM/ 

LSTCSY 

/CSYSTM/ 

LUPRNT 

/ADEBUG/ 

ROX 

/CSYSTM/ 

ROY 

/CSYSTM/ 

ROZ 

/CSYSTM/ 

ZERO 

/ADEBUG/ 

B.  OUTPUT 


LOCATION 


1.  NAME:  GTDORV 


(GTO) 


*. 

*, 

K: 


I 

,1 


i 
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PURPOSE:  This  subroutine  directs  all  the  geometrical  theory  of  dif¬ 
fraction  calculations  which  determine  the  electric  or  magnetic  scat¬ 
tered  field. 

METHOD:  GTOORV  is  the  driver  routine  for  all  the  geometrical  theory 
of  diffraction  (GTD)  calculations.  There  are  three  major  computa¬ 
tions  which  GTDORV  performs.  The  first  Is  to  initialize  fields  and 
special  flags.  The  second  is  to  compute  or  obtain  information  per¬ 
taining  to  the  geometry,  fixed  geometry  parameters,  coordinate  sys¬ 
tems,  and  normalizing  lengths.  These  are  calculated  depending  upon 
whether  the  source,  frequency,  or  geometry  data  set  name  has  changed 
from  the  last  time  GTDORV  was  called.  (The  procedure  is  pointed  out 
in  the  accompanying  flow  chart.)  Of  course,  if  it  is  the  first  time 
GTDDRV  is  called,  the  source,  frequency,  and  geometry  name  are  con¬ 
sidered  to  all  be  different.  The  third  major  calculation  Is  to  com¬ 
pute  the  specified  fields.  The  total  field  accumulated  from  each 
specific  field  Interaction  requested  and  the  error  flag  are  the  out¬ 
puts  of  GTDDRV  to  its  calling  routine,  ZGTDRV. 

There  are  also  more  subtle  calculations  which  occur  in  this  sub¬ 
routine.  For  Instance,  if  the  geometry  data  set  has  been  extended, 
subroutine  TSKXQT  will  call  GTDDRV  to  reset  the  geometry  data  set 
name  flag,  so  that  the  next  time  GTDORV  is  called  to  compute  fields 
it  will  reenter  the  geometry  under  the  original  name,  thus  Including 
any  changes.  Another  function  of  GTDDRV  is  to  make  sure  that  the 
present  number  of  geometrical  theory  of  diffraction  objects  has  not 
exceeded  the  allowable  number  within  any  one  execution  of  the  comp¬ 
uter  code.  If  they  are  exceeded,  the  error  flag  is  set  and  control 
is  returned  to  the  calling  routine.  If  the  GTD  objects  are  within 
their  allowed  limits,  no  error  flag  is  set  and  computation  contin¬ 
ues.  Frequency  is  calculated  In  megahertz  in  the  calling  routine. 
In  GTDDRV  the  frequency  is  changed  to  gigahertz. 

To  obtain  the  GTD  geometry  from  the  segment  table  (if  it  is  differ¬ 
ent  from  the  last  time  GTDDRV  was  called)  the  code  pages  through  the 
segment  table.  The  coordinates  in  the  segment  table  are  stored  In 
units  of  meters.  When  the  GTD  objects  are  obtained,  the  original 
segment  table  block  is  put  back  Into  memory.  This  subroutine  per¬ 
forms  extensive  checking  to  determine  whether  certain  computations 
are  required  in  order  to  save  computation  time.  For  example.  If  the 
geometry  and  frequency  are  the  same  as  the  last  time  GTDDRV  was 
called,  the  geometry  coordinates  will  not  be  renormalized  from 
meters  (from  the  segment  table)  to  wavelengths  because  they  are  the 
same  as  they  were  the  last  time.  All  geometry  lengths  in  the  GTD 
calculations  are  in  wavelengths.  The  conversion  from  meters  to 
wavelengths  is  made  in  GTDDRV.  The  geometry  in  wavelengths  is 
stored  in  common  blocks. 
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To  determine  fixed  constants  associated  with  geometry,  subroutines 
GEOM,  GEOMC,  and  GEOMPC  are  called.  GEOM  determines  fixed  constants 
for  plates  and  Is  called  only  if  plates  are  present.  GEOMC  is 
called  If  a  cylinder  Is  present  to  determine  the  fixed  constants 
associated  with  the  cylinder.  GEOMPC  determines  fixed  constants  for 
plate  and  cylinder  interactions  if  both  are  present.  An  error  may 
also  occur  In  subroutine  GEOM  if  a  plate  is  found  not  to  be  flat. 
An  error  flag  Is  set  In  that  subroutine  and  when  control  returns  to 
GTDORV,  the  latter  subroutine  will  return  control  to  its  calling 
routine  with  the  fields  set  at  zero. 

The  field  computations  are  made  depending  upon  the  user's  requests 
and  are  denoted  by  variables  K  and  J.  Case  statements  go  to  the 
appropriate  section  for  either  plate,  cylinder,  or  plate-cylinder 
interactions.  Within  each  of  these  is  another  case  statement  to 
compute  the  appropriate  fields.  Within  the  plate  calculations,  all 
plates  and  edges  are  considered;  a  DO-loop  is  performed  around  the 
called  driver  routines  for  each  of  the  specific  fields  to  be  calcu¬ 
lated.  For  each  specific  interaction,  the  fields  are  converted  into 
x,  y,  z  components  in  the  reference  coordinate  system  in  subroutine 
XYZFLD.  The  fields  are  also  accumulated  in  that  subroutine  in  com¬ 
mon  block  FLDXYZ.  After  all  the  specific  fields  are  computed,  the 
total  field  Is  rotated  back  to  the  original  coordinate  system  of  the 
calling  routine  and  multiplied  by  the  given  source  excitation.  If  a 
near-fleld  analysis  has  been  requested,  the  fields  are  converted  to 
units  of  volts  or  amps  per  meter.  The  far  field  is  already  in  these 
units. 

At  the  end  of  GTDDRV,  It  is  determined  if  the  source  is  shadowed 
from  the  near-fleld  observation  point.  If  it  is,  a  flag  is  set  to 
Indicate  this.  It  is  used  in  other  calculations  within  the  GTD  mod¬ 
ule.  Control  is  then  returned  to  the  calling  routine. 

INTERNAL  VARIABLES: 

VARIABLE  DEFINITION 

AA  The  elliptical  cylinder  major  axis  length 

In  meters 

AXCL  Test  variable  to  determine  if  the  x  axis  of 

the  cylinder  is  in  the  reference  coordinate 
system 

AYCL  Test  variable  to  determine  if  the  y  axis  of 

the  cylinder  is  in  the  reference  coordinate 
system 


Test  variable  to  determine  If  the  z  axis  of 
the  cylinder  is  In  the  reference  coordinate 
system 

The  elliptical  cylinder  minor  axis  length 
In  meters 

The  source  excitation  In  real  and  imaginary 
components 

Unit  vector  of  the  far-fleld  observation 
direction  or  the  near-field  observation 
point  location 

Distance  to  hit  point  (from  subroutine 
PLAINT) 

Distance  from  source  to  field  point  in 
wavelengths 

Phi  component  of  field  diffracted  from  end 
cap  rim  in  RCS 

Phi  component  of  field  diffracted  from 
corners  of  edge  ME  of  plate  MP  and  then 

reflected  by  plate  MR  (corner  diffraction) 

Theta  component  of  field  diffracted  from 

the  corners  of  edge  ME  of  plate  MP  and  then 
reflected  by  plate  MR  (corner  diffraction) 

Theta  component  of  field  diffracted  from 

end  cap  rim  In  RCS 

Phi  component  of  field  diffracted  from 
corners  of  edge  ME  of  plate  MP 

Theta  component  of  field  diffracted  from 

corners  of  edge  ME  of  plate  MP 

Phi  component  of  field  diffracted  from  edge 
ME  of  plate  MP  in  RCS 

Theta  component  of  field  diffracted  from 

edge  ME  of  plate  MP  in  RCS 

Phi  component  of  field  diffracted  from  edge 
ME  of  plate  MP  and  reflected  from  the 
cylinder 
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EORCT  Theta  component  of  field  diffracted  from 

edge  HP  of  plate  MP  and  reflected  from  the 
cylinder 

EDRPP  Phi  component  of  field  diffracted  from  edge 

HE  of  plate  HP  and  then  reflected  by  plate 
HR  (edge  diffraction) 

EORPT  Theta  component  of  field  diffracted  from 

edge  HE  of  plate  HP  and  then  reflected  by 
plate  HR  (edge  diffraction) 

EIPH  Phi  component  of  direct  field  from  source 

in  RCS 

EITH  Theta  component  of  direct  field  from  source 

in  RCS 

EPH  The  total  electric  field  phi  component 

ERCAP  Phi  component  of  field  reflected  from 

cylinder  end  cap  in  RCS 

ERCAT  Theta  component  of  field  reflected  from 

cylinder  end  cap  in  RCS 

ERCPP  Phi  component  of  geometrical  optics  field 

reflected  from  cylinder  and  then  reflected 
from  plate  HR 

ERCPT  Theta  component  of  geometrical  optics  field 

reflected  from  cylinder  and  then  reflected 
from  plate  HR 

ERDPH  Phi  component  of  field  reflected  from 

cylinder  and  diffracted  by  edge  HE  of  plate 
HP 

ERDTH  Theta  component  of  field  reflected  from 

cylinder  and  diffracted  by  edge  HE  of  plate 
HP 

ERPCP  Phi  component  of  geometrical  optics  field 

reflected  by  plate  HR  and  then  scattered  by 
the  cylinder 

ERPCT  Theta  component  of  geometrical  optics  field 

reflected  by  plate  HR  and  then  scattered  by 
the  cylinder 
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Phi  component  of  field  reflected  by  plate 
HR  and  diffracted  by  the  corners  of  edge  ME 
of  plate  MP  (corner  diffraction) 

Theta  component  of  field  reflected  by  plate 
MR  and  diffracted  by  the  corners  of  edge  ME 
of  plate  MP  (corner  diffraction) 

Phi  component  of  field  reflected  by  plate 
MR  and  diffracted  by  edge  ME  of  plate  MP 
(edge  diffraction) 

Theta  component  of  field  reflected  by  plate 
MR  and  diffracted  by  edge  ME  of  plate  MP 
(edge  diffraction) 

Phi  component  of  geometrical  optics  field 
reflected  from  cylinder 

Phi  component  of  field  reflected  from  plate 
MP  in  RCS 

Phi  component  of  field  reflected  by  plate 
MR  and  then  scattered  by  the  cylinder 

Theta  component  of  field  reflected  by  plate 
MR  and  then  scattered  by  the  cylinder 

Theta  component  of  field  reflected  from 

plate  MP  in  RCS 

Phi  component  of  field  reflected  from  plate 
MP  and  then  plate  MPP  in  RCS 

Theta  component  of  field  reflected  from 

plate  MP  and  then  plate  MPP  in  RCS 

Phi  component  of  field  scattered  by  the 
cylinder  and  then  reflected  by  plate  MR 

Theta  component  of  field  scattered  by  the 
cylinder  and  then  reflected  by  plate  MR 

Theta  component  of  geometrical  optics  field 
reflected  from  cylinder 


Phi  component  of  field  scattered  by  cylin¬ 
der  in  RCS 
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ESTH 

ETH 

FLOPT 

FN 

FP1 

FP2 


FP3 


FRQG 

FRQGLA 

FRQMHZ 

FX 

FY 

FZ 

IANG 

IBSCEO 


Theta  component  of  field  scattered  by 
cylinder  in  RCS 

The  total  electric  field  theta  component 

The  location  of  the  near-field  observation 
point  normalized  to  wavelengths  or  the  far- 
field  observation  direction 

The  wedge  angle  number  for  the  particular 
plate  and  edge  under  consideration 

The  x  component  in  meters  of  the  near-field 
observation  point  or  zero  for  far-field 
calculations  in  the  global  coordinate  sys¬ 
tem 

The  y  component  in  meters  of  the  near-field 
observation  point  or  the  theta  angle  in 
radians  of  the  far-field  observation  direc¬ 
tion  in  the  global  coordinate  system 

The  z  component  in  meters  of  the  near-field 
observation  point  or  the  phi  angle  in 
radians  of  the  far-field  observation  direc¬ 
tion  in  the  global  coordinate  system 

The  frequency  in  gigahertz 

This  is  the  frequency  in  gigahertz  which 
will  be  used  the  next  time  GTDDRV  is  called 
to  check  if  the  frequency  has  remained  the 
same 

Frequency  in  megahertz 

The  x  component  of  the  electric  or  magnetic 
field  in  the  reference  coordinate  system 

The  y  component  of  the  electric  or  magnetic 
field  in  the  reference  coordinate  system 

The  z  component  of  the  electric  or  magnetic 
field  In  the  reference  coordinate  system 

The  number  of  angles  to  be  considered 

A  flag  which  is  used  to  indicate  that  an 
error  occurred  in  the  GTD  calculations  (0 


Indicates  no  error,  1  indicates  error 
occurred) 


ICSYS 

IEHO 

IFDTYP 

IGDNLA 

IGLIM 

IGTDGM 
I  LINE 
INSRC 
INPBLK 
ISOUFL 


ITAG 

ITEM 

J 

K 

KJINT 


The  coordinate  system  number  In  which  the 
cylinder  was  defined 

Indicates  the  field  type  wanted  (1  for 
E-fleld,  0  for  H-field) 

Indicates  the  type  of  parameters  being  sent 
to  GTODRV  for  the  field  (1  for  near-field, 
0  for  far-field) 

This  Is  the  geometry  data  set  name  that 
will  be  used  the  next  time  GTDDRV  is  called 
to  check  If  the  geometry  has  been  changed 

The  last  line  in  this  SEGTBL  block  that 
contains  GTO  object  information 

The  geometry  data  set  name 

The  line  of  the  SEGTBL  being  considered 

The  source  type 

The  SEGTBL  block  in  which  GTD  objects  begin 

A  flag  which  indicates  that  the  source  is 
shadowed  from  the  observation  point  or 
direction  (0  indicates  not  shadowed,  1 
indicates  shadowed) 

GTD  object  type  identifier 

Location  of  a  particular  GTD  object  param¬ 
eter  on  the  present  ILINE  of  the  SEGTBL 
array 

Used  to  Indicate  which  particular  reflec¬ 
tion-diffraction  interactions  were  reques¬ 
ted  for  the  particular  K  interactions 

The  variable  used  to  indicate  which  plate, 
cylinder,  or  plate-cylinder  GTD  inter¬ 
actions  were  requested 

This  array  denotes  the  scattering  inter¬ 
actions  requested 
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LFRQFL 

LGONFL 

LHIT 

LNROT 

LOC 

LSRCFO 

MC 

ME 

MP 

NCORN 

NUM 

ORIGIN 


This  is  a  logical  variable  set  true  to 
indicate  if  the  frequency  changed  from  the 
last  time  GTDORV  was  called 

This  is  a  logical  variable  set  true  if  the 
geometry  data  set  name  changed  since  the 
last  time  GTODRV  was  called 

Logical  variable  (from  subroutine  PLAINT) 
set  true  if  the  near-field  observation 
point  is  shadowed  from  the  source 

A  logical  variable  set  true  if  the  ref¬ 
erence  coordinate  system  and  the  global 
system  are  the  same 

The  location  of  a  specific  K,  J  interaction 
In  the  KJINT  array 

A  logical  variable  set  true  to  indicate  if 
the  source  is  the  same  as  the  last  source 
when  GTDORV  was  called 

An  index  variable  used  to  indicate  which 
end  cap  Is  being  considered 

An  index  variable  used  to  specify  a  partic¬ 
ular  edge  on  a  plate 

An  index  variable  used  to  indicate  a 
specific  plate  number 

The  number  of  corners  on  a  particular  plate 

The  total  number  of  GTD  objects 

This  variable  represents  the  (0.,  0.,  0.) 
location.  It  is  used  as  a  dummy  variable 
when  referring  the  source  axes  to  the  ref¬ 
erence  coordinate  system  because  these  axes 
only  need  to  be  rotated  and  not  translated 
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Plane  wave  to  spherical  wave  conversion 
constant  for  incident  electric  field 


The  wire  source  radius  in  wavelengths  or 
the  patch  area  in  square  wavelengths 

The  wire  source  length  in  wavelengths  or 
zero  for  patches 

The  wire  source  radius  in  meters,  or  the 
patch  area  in  square  meters 

The  wire  source  length  in  meters,  or  for 
patches  it  is  zero 

The  theta  angle  from  the  z  axis  to  the  end 
cap  normal  of  the  more  negative  end  cap 

(measured  In  the  x-z  plane) 

The  angle  between  the  z  axis  and  the  end 

cap  plane  of  the  more  negative  end  cap 
(measured  in  the  x-z  plane) 

The  theta  angle  from  the  z  axis  to  the  end 
cap  normal  of  the  more  positive  end  cap 

(measured  in  the  x-z  plane) 

The  angle  between  the  z  axis  and  the  end 

cap  plane  of  the  more  positive  end  cap 
(measured  in  the  x-z  plane) 

The  location  of  the  cylinder  center  in 
wavelengths 

The  location  of  the  center  of  the  cylinder 
in  the  global  coordinate  system  in  meters 

Direction  cosine  of  the  source  tangent  from 
the  x  axis 

Direction  cosine  of  the  source  tangent  from 
the  y  axis 

Direction  cosine  of  the  source  tangent  from 
the  z  axis 

The  source  axes  unit  vectors  in  the  global 
coordinate  system 


The  complex  source  excitation 
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The  wavelength 

X  location  of  the  source  in  meters  in  the 
global  coordinate  system 

The  x  component  of  the  output  electric  or 
magnetic  field  in  the  global  coordinate 
system  in  volts/meter  for  E-field  or 
amps/meter  for  H-field 

Direction  cosine  of  the  source  normal  from 
the  x  axis  (used  for  patches) 

The  source  location  in  meters  in  the  global 
coordinate  system 

The  plate  corner  locations  in  meters  as 
stored  in  SEGTBL  in  the  global  coordinate 
system 

A  temporary  storage  variable  used  for 
translating  and  rotating  the  geometry  from 
the  global  coordinate  system  to  the 
reference  coordinate  system  (RCS) 

Y  location  of  the  source  in  meters  in  the 
global  coordinate  system 

The  y  component  of  the  output  electric  or 
magnetic  field  In  the  global  coordinate 
system  in  volts/meter  for  E-field  or  amps/ 
meter  for  H-field 

Direction  cosine  of  the  source  normal  from 
the  y  axis  (used  for  patches) 

The  distance  from  the  center  of  the 
cylinder  to  the  point  at  which  the  z  axis  pierces 
the  more  negative  end  cap 

The  distance  between  the  center  of  the 
cylinder  and  the  point  at  which  the  z  axis 
pierces  the  more  positive  end  cap 

Z  location  of  the  source  in  meters  in  the 
global  coordinate  system 

The  z  component  of  the  output  electric  or 
magnetic  field  in  the  global  coordinate 
system  in  volts/meter  for  E-field  or  amps/ 
meter  for  H-field 
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ZLOC 

ZNS 

I/O  VARIABLES: 
A.  INPUT 
CURENT 


The  distance  from  the  center  of 
cylinder  to  the  point  at  which  the  z 
pierces  the  end  cap 

Direction  cosine  of  the  source  normal 
the  z  axis  (used  for  patches) 


LOCATION 

F.P. 


DBGPRT 

FACTOR 

FNP 

FP1 


/ADEBUG/ 

/SOURSF/ 

/FNANG/ 

F.P. 


FP2 


F.P. 


FP3 


F.P. 


FRQMHZ  F.P. 


FX  /FLDXYZ/ 

FY  /FLDXYZ/ 


FZ  /FLDXYZ/ 

IEHO  F.P. 


IFDTYP 

IGTDGM 

IMSRC 

IP217 

ISDWFL 

ISGTBL 


F.P. 

F.P. 

F.P. 

/GEOOAT/ 

F.P. 

/SEGMNT/ 


the 

axis 

from 


KJINT 


F.P. 


LSRFC 


LSURF 

MAXSEG 

NOXBLK 

NPATCH 

NUMCYL 

NUMECP 

NUMPLT 

NUMSEG 

NUIRE 

PI 

RPD 

SEGTBL 

SSP1 

SSP2 

TXS 

TYS 

TZS 

XCL 


/SRFACC/ 

/SURFAC/ 

/SEGHNT/ 

/SEGMHT/ 

/SEGMNT/ 

/GTDDAT/ 

/GTDDAT/ 

/GTDDAT/ 

/SEGMNT/ 

/SEGMNT/ 

/PIS/ 

/PIS/ 

/SEGMNT/ 

F.P. 

F.P. 

F.P. 

F.P. 

F.P. 

/ROTRDT/ 
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YCL 

/ROTRDT/ 

YCSRC 

F.P. 

YNS 

F.P. 

ZCL 

/ROTRDT/ 

ZCSRC 

F.P. 

ZNS 

F.P. 

OUTPUT 

LOCATION 

A 

/GEOMEL/ 

AS 

/gtd/ 

B 

/GEOMEL/ 

CAS 

/gtd/ 

CNC 

/GEOMEL/ 

CPS 

/DIR/ 

CTC 

/GEOMEL/ 

CTHS 

/DIR/ 

D 

/DIR/ 

DP 

/THPHUV/ 

DT 

/THPHUV/ 

FACTOR 

/SOURSF/ 

FLDPT 

/NEAR/ 

FX 

/FLDXYZ/ 

FY 

/FLDXYZ/ 

FZ 

/FLDXYZ/ 

IANG 

/DOUBLE/ 
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IBSCEO 

F.P. 

IEH 

/EHFLD/ 

IM 

/SRC/ 

LCORNR 

/LOGDIF/ 

LCYL 

/LPLCY/ 

LDEBUG 

/TEST/ 

LFRQFL 

/SAME/ 

LGDNFL 

/SAME/ 

LGRNO 

/GROUND/ 

LNRFLD 

/NEAR/ 

LPLA 

/LPLCY/ 

LSLOPE 

/LOGDIF/ 

LSRCFL 

/SAME/ 

MEP 

/GEOPLA/ 

MPX 

/GEOPLA/ 

MPXR 

/GROUND/ 

PHSR 

/DIR/ 

SAS 

/GTD/ 

SASP 

/gtd/ 

SNC 

/GEOMEL/ 

SP1 

/SRC/ 

SP2 

/SRC/ 

SPS 

/DIR/ 

STHS 

/DIR/ 

THSR 

/DIR/ 
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GEOMPC 

GETSEG 

INCFLD 

NFD 

PLAINT 

RCLOPL 

REFCAP 

REFPLA 

ROTRAN 

RPLDPL 

RPLRPL 

RPLSCL 

SCLRPL 

SCTCYL 

SMAGNF 

STATIN 

STATOT 

WLKBCK 


G' 
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^  MORE  N 
GTD 

GEOMETRIES 
?  > 


READ  NEXT  GTD 
ENTRY 


PUT  ORIGINAL  SEGTBL 
BLOCK  BACK  IN 
MEMORY 


PRESENT  AND 
CYLINDER  NOT 

'S^PRESENJX^’ 


DEFINE  REFERENCE 
COORDINATE  SYSTEM 
GEOMETRY  FOR 
GEOMETRY  OF  PLATES 
ONLY 


DETERMINE  OBSERVA¬ 
TION  POINT  LOCATION 
OR  DIRECTION 


NORMALIZE  OBSERVA¬ 
TION  POINT  IF  NEAR 
FIELD  REQUESTED 


^^CYLINDERS,S. 

^  PRESENT  AND  NOT^ 
CENTERED  AT  (0..  0.,  0.) 
,OR  ALIGNED  WITH  THE^ 
\^iAXIS 


REFER  OBSERVATION 
DIRECTION  OR  POINT 
TORCS 


/  SOURCE, 

FREQUENCY  OR  ^ 
GEOMETRY  DIFFERENT 
\FROM  LAST  time/” 


^  is^s 

SOURCE  OR 
FREQUENCY 
DIFFERENT, 
\  ?  / 


NORMALIZE  SOURCE 
DIMENSIONS 


^GEOMETRY ^ 
OR  FREQUENCY 
s.  DIFFERENT  ^ 


NORMALIZE  CYLINDER 
COORDINATES  IF 
CYLINDER  PRESENT 


NORMALIZE  PLATE 
COORDINATES  IF 
PLATES  PRESENT 


/cylinder^, 
PRESENT  AND 
NOTIN 

N.  RCS  .X 


X^IS  \ 

X SOURCE  ANCP'n 
FREQUENCY  THE 

NT/ 


DEFINE  SOURCE  LOCA¬ 
TION  AND  AXES  FROM 
LAST  INPUT  VALUES 
(NOT  LAST  RCS 
VALUE) 


REFER  SOURCE  AND 
AXES  TO  RCS 


X  ls  X 

X^ FREQUENCY^* 
OR  GEOMETRY 
DIFFERENT  AND 
PLATES  PRESENT. 


REFER  PLATES  TO  RCS 


DETERMINE  FIXED 
CONSTANTS  FOR  PLATE- 
CYLINDER  INTER¬ 
ACTIONS  IF  BOTH 
ARE  PRESENT 
GEOMPC 
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N  )  PLATE  INTERACTIONS 


CASE-FIELD  REQUESTED 


J»B  J-51J-4  J-3  J-2 


COMPUTE 

SINGLE  REFLECTED 
FIELDS 


COMPUTE 

DOUBLY  REFLECTED 
FIE  LOS 

RPLRPL 


COMPUTE 

SINGLE  DIFFRACTED 
FIELDS 


COMPUTE 

REFLECTED-DIFFRACTED 

FIELDS 

RPLDPL 


COMPUTE 

DIFFRACTED-REFLECTED 

FIELDS 


DPLRPL 
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NAME:  IBITCK  (GTD,  INPUT,  MOM,  OUTPUT) 

PURPOSE:  To  determine  If  a  specified  bit  Is  set  In  a  calling 

argument. 

METHOD:  A  bit  set  Is  determined  by  taking  the  modulus  base  2  of  the 
Input  argument.  If.  the  result  Is  even,  the  bit  Is  not  set;  if  the 
result  Is  odd,  the  bit  Is  set. 

INTERNAL  VARIABLES: 

VARIABLE  DEFINITION 

FIRST  Logical  variable  TRUE  on  first  entry  into 

subroutine,  FALSE  on  successive  entries 

IBIT  Input  argument  designating  bit  to  be  tested 

IPWR2  Integer  2  to  the  power  minus  1  of  the  bit 

position  to  be  tested 

IWRD  Input  argument  of  word  to  be  tested 

JBIT  Pointer  to  the  IPWR2  array 

JWRD  The  input  word  IWRD  arithmetically  right- 

shifted  to  have  the  bit  IBIT  as  the 
rightmost  bit 

MANTSA  The  number  of  bits  in  the  mantissa  of  a 

floating  point  word  of  the  host  machine 

I/O  VARIABLES: 

A.  INPUT  LOCATION 

IBIT  F.P. 

IWRD  F.P. 

MANTSA  /AOEBUG/ 

B.  OUTPUT  LOCATION 


IBITCK 


FUNCTION 


IBITCK 


(GTD,  INPUT,  MOM,  OUTPUT) 


5. 


7. 


CALLING  ROUTINES*: 
BACSUB  (3) 

BANDIT  (3) 

DMPDRV  (1,2, 3,4) 
EFDGEO  (1) 

EGFMAT  (3) 

EXCDRV  (2,3) 

FLDDRV  (2,3) 
FLDOUT  (4) 

FNDREC  (1,2, 3, 4) 

GETSYM  (1,2, 3,4) 

CALLED  ROUTINES: 

ASSIGN 

STATIN 

STATOT 

WLKBCK 


LUDDRV  (3) 

PLTDRV  (1) 

PRTSYM  (3) 

PUTSYM  (1,2, 3, 4) 
REBLCK  (3) 

RWFILS  (1,2, 3,4) 
SETORV  (3) 

SOLDRV  (3) 

SYMDEF  (1,2, 3,4) 


♦1-INPUT 

2 - GTD 

3- MOM 

4- OUTPUT 


PURPOSE:  To  determine  location  of  source  Image  for  reflection  of 
source  ray  from  plate  HP.  Oouble  reflection  Image  locations  may  be 
obtained  by  calling  IMAGE  twice:  once  for  the  source  ray  reflection 
from  plate  HP,  and  once  for  the  reflection  of  the  ray  from  the  Image 
location  from  the  second  plate. 

METHOD:  The  source  Image  location  is  given  by 


XTT  =  XT5  +  2  AN  VN  =  x  XII(l)  +  y  XII(2)  +  z  XII(3) 
where 

A 

AN  =  (X  -  XT5)  •  VN 

A 

and  X,  XT!>t  and  VN  are  as  follows  and  as  shown  in  figure  I. 

A  „ 

VN  =  plate  unit  normal  =  x  VN(MP,1)  +  y  VN(MP,2)  +  z  VN(MP,3) 
XTC  =  x  XIS(l)  +  y  XIS(2)  +  z  XIS(3) 

X  -  x  X(MP,1,1)  +  y  X(MP,1,2)  +  z  X(MP,1,3) 


Figure  1.  Geometry  for  Determining  Source  Image  Location 
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INTERNAL  VARIABLES: 

VARIABLE 

DEFINITION 

AN 

Distance  from  plate  plane  to  source,  calcu¬ 
lated  from  the  dot  product  of  vector  from 
source  to  edge  one  of  plate  MP  and  the 
plate  unit  normal  (negative  AN  indicates 
source  lies  on  the  side  of  the  plane  into 
which  VN  points) 

MP 

Plate  into  which  source  is  imaged 

VN 

Array  which  includes  the  normal  vector  of 
plate  MP 

X 

Array  which  includes  the  corner  locations 
of  plate  MP 

XII 

X,Y,Z  components  of  image  location  in  RCS 

XIS 

X,Y,Z  components  of  source  location  in  RCS 

I/O  VARIABLES: 

A.  INPUT 

LOCATION 

HP 

F.P. 

VN 

/GEOPLA/ 

X 

/GEOPLA/ 

XIS 

F.P. 

B.  OUTPUT 

LOCATION 

AN 

F.P. 

XII 

F.P. 

CALLING  ROUTINES: 

OPLRPL 

10 

CALCULATE  AN,  THE 
DOT  PRODUCT  OF  PLATE 
NORMAL  AND  THE 
VECTOR  FROM  THE 
SOURCE  TO  CORNER  #1 
OF  THE  PLATE _ 


20 


CALCULATE  THE  IMAGE 
LOCATION 


XII  =  XTS"  +  2  AN  VN 


PURPOSE:  To  determine  the  source  image  axes  directions  for  a  source 
after  reflection  from  a  given  end  cap. 


METHOD:  The  source  image  axes  unit  vectors  for  an  electric  source 
imaged  in  an  end  cap  are  given  by: 


A  A  A 


A  A  A  A  A 


V  =  (_xp  ,n)n  +  (XP  'tn  +  (XP  -b)b 


A  A  A  A  A  A  A  A  A  A 

zpi  =  (zp  • n)n  +  (-zp  -t)t  +  (-Zp  *b)b 


rpi  ■(;pi)x(;pi) 


where  Xp,  £p,  and  zp^are  unit  vectors  of  the  source  coordinate  sys¬ 
tem  axes,  xjji,  ypi,  Zpi  are  the  unit  vectors  of  the  source  image 
coordinate  system  for  the  end  cap,  and  n  is  the  end  cap  unit  normal 
and  t  is  the  unit  vector  tangent  to  the  end  cap.  Illustrations  of 
imaging  the  source  axes  and  the  end  cap  coordinate  system  are  shown 
in  figures  1  and  2. 


INTERNAL  VARIABLES: 
VARIABLE 
K 
L 

LL 

PB 

PN 

PT 

VC 


DEFINITION 
Index  variable 
Index  variable 
Index  variable 

Dot  product  of  end  cap  unit  bi normal  and 
unit  vector  of  source  axis  being  imaged 

Dot  product  of  end  cap  unit  normal  and  unit 
vector  of  source  axis  being  imaged 

Dot  product  of  end  cap  unit  tangent  and 
unit  vector  of  source  axis  being  imaged 

X,Y,Z  components  of  unit  vector  tangent  to 
end  cap  (in  x-z  plane) 


END  CAP  SURFACE 


Figure  1 


IMAGE 

AXES 


Imaging  of  Source  Axes  for  Electric  Source 
Through  the  End  Cap  Surface 


* 


'  A 

VNC  =  n 


VIMAG 


VNC 

VSOURC 

VX.VY.VZ 

I/O  VARIABLES: 

A.  INPUT 
VNC 

VSOURC 

B.  OUTPUT 
VIMAG 

CALLING  ROUTINE: 
GEOMC 


Array  of  components  defining  the  source 
image  coordinate  system  axes  in  (x,y,z) 
reference  coordinate  system  components 

X,Y  and  Z  components  of  end  cap  unit  normal 

Array  of  components  defining  the  source 
coordinate  system  axes  in  (x,  y,  z)  refer¬ 
ence  coordinate  system  components 

X,Y,  and  Z  components  of  source  axis  being 
Imaged 


LOCATION 

F.P. 

F.P. 

LOCATION 

F.P. 


CALLED  ROUTINE 


IMCDIR 


(GTD) 


1.  NAME:  IMOIR 


(GTD) 


2.  PURPOSE:  To  determine  the  source  image  axes  directions  for  a  source 
(or  source  image)  after  reflection  from  a  given  plate. 

3.  METHOD:  The  source  image  axes  unit  vectors  for  an  electric  source 
are  given  by: 


xpi  =  (-xp-n)n  +  (xp-t)t  +  (xp-b)b 

S\  A  A  A  A  A  A  A  A  A 

zp.  =  { zp • n ) n  +  (-Zp-t)t  +  (-Zp-b)b 


where  Xp,  yp,  Zp  are  the  unit  vectors  of  the  source  coordinate  system 
axes,  and  Xp^,  ygj,  Zpi  are  the  unit  vectors  of  the  source  image  coordi¬ 
nate  system.  Also  n  is  the  plate  unit  normal,  t  is  the  unit  vector 
tangent  to  the  plate  and  b=nxt.  Unit  vectors  t  and  b  are  arbitrarily 
chosen  to  be  the  edge  vector  V  and  the  bi normal  VP  of  edge  one  on  the 
plate.  The  current  flows  in  the  zp  direction.  An  illustration  of 
imaging  the  source  coordinate  system  is  shown  in  figure  1. 


Figure  1.  Imaging  of  Source  Coordinate  System  for  Electric  Source 
(Shown  in  Two  Dimension  for  Simplicity)  Through  the 
Plate  Plane 
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IMDIR  (GTD) 

INTERNAL  VARIABLES: 

VARIABLE 

DEFINITION 

K 

K=1  corresponds  to  XP  axis  transformation, 
K=3  corresponds  to  ZP  axis  transformation 

L 

Incremental  variable 

MP 

Plate  of  reflection 

PB 

Component  of  axis  in  plate  plane  normal  to 
edge 

PN 

Component  of  axis  normal  to  plate 

PT 

Component  of  axis  parallel  to  plate  edge 

V 

Array  which  includes  the  unit  vector 
tangent  to  edge  #1  on  the  plate  where 
reflection  occurs 

VIMAG 

X,Y,Z  components  defining  unit  vectors  of 
the  image  source  coordinate  system  axes  in 
RCS 

VN 

Arr»--  which  includes  the  unit  vector 
l  mal  to  edge  #1  of  the  plate  reflection 
occurs  from 

VP 

Array  which  includes  the  unit  vector  normal 
to  the  plate  reflection  occurs  from 

VSOURC 

X,Y,Z  components  defining  unit  vectors  of 
the  source  coordinate  system  axes  in  RCS 

VX.VY.VZ 

X,Y,Z  components  of  axis  under  transforma¬ 
tion  in  RCS 

I/O  VARIABLES: 

A.  INPUT 

LOCATION 

MP 

F.P. 

V 

/GEOPLA/ 

VN 

/GEOPLA/ 

(xp  AXIS 
TRANSFORMATION) 


DOES  K  =3? 


TAKE  CROSS  PRODUCT 
OF  zp  AND  xp  AXES 

TO  OBTAIN  y  AXIS 
DIRECTION  p 


PURPOSE:  To  calculate  the  unobstructed  electric  field  transmitted 

by  a  unit  source  in  a  given  direction. 


METHOD:  INCFLO  is  the  driver  routine  which  directs  all  the  ray 
tracing,  physics,  and  field  calculations  for  determining  the 
electric  field  from  a  unit  source  in  a  given  far-field  direction  or 
at  a  near-field  point. 

The  ray  path  is  checked  first  for  obstructions.  For  the  far-field 
path  this  is  an  infinite  distance  from  the  source  location  in  the 
given  far-field  direction.  For  near  field,  only  the  path  between 
the  source  and  the  observation  field  point  is  checked.  If  the  ray 
is  obstructed  by  a  plate  or  cylinder,  the  theta  and  phi  components 
of  the  field  are  set  to  zero  and  no  other  calculations,  except  for 
debug  functions  if  requested,  are  performed  in  this  routine.  If  the 
ray  path  is  unobstructed,  the  source  field  pattern  factor  is  calcu¬ 
lated  by  calling  subroutine  SOURCE.  Then  the  phase  factor  is 
computed.  For  far  field  this  will  refer  the  field  back  to  the 
origin  of  the  reference  coordinate  system.  Figure  1  shows  the 
geometry  involved.  For  near  field,  the  phase  factor  includes  the 
spherical  wave  spread  factor.  Now  the  theta  and  phi  components  of 
the  electric  field  can  be  computed.  The  electric  field  is  given  by: 


E  =  (ETH  0  +  EPH  <fr) 


}j2lt(XS  •  D)  ^  fQr  far  fiel(J 


from  subroutine  from  sub-  PH 
SOURCE  -  routine 

SOURCE  - 

theta  component  phi  component 
of  source  of  source 

factor  factor 


-  phase  factor 


E  =  (ETH  0 


EPH  <|>) 


- j2nSNF 


for  near  field. 


from  subroutine  from  subroutine 


SOURCE  - 
theta  component 
of  source 
factor 


SOURCE  - 
phi  component 
of  source 
factor 


PH  -  phase  factor 
where  SNF  =  I FLDPT  - 


X 


SOURCE  LOCATION 


Figure  1.  Geometry  Showing  Source  Far-Field  Phase  Referred  to  the 
Origin  of  the  Reference  Coordinate  System  (RCS) 


Subroutine  XYZFLD  is  called  to  compute  the  x,y,z  components  of  the 
E-field  and  to  accumulate  them  in  common  block  /FLDXYZ/. 

If  the  debug  capabilities  have  been  requested,  the  field  magnitude 
is  computed.  The  magnitude,  theta  and  phi  complex  components  are 
printed  on  file  LUPRNT. 

INTERNAL  VARIABLES: 


VARIABLE 

CJ 

D 

DHT 

DHIT 

EPH 

ETH 


DEFINITION 

Complex  number  j=(0.,l.) 

Unit  vector  x,y,z  components  of  ray  propa¬ 
gation  direction  in  RCS 

Distance  between  source  and  field  point 

Distance  between  source  and  nearest  hit 
point  (determined  in  PLAINT  and  CYLINT) 

E-phi  component  of  source  field 

E-theta  component  of  source  field 


INCFLD 


(GTD) 


EX.EY.EZ 

Source  field  pattern  factor  in  x,y,z 
components 

FLDMAG 

Field  magnitude 

FLDPT 

The  x,y,z  components  of  the  field  point 

LDEBUG 

Logical  variable  set  true  if  debug  was 
requested 

LHIT 

Set  true  if  ray  hits  plate  or  cylinder 

LNRFLD 

Flag  to  indicate  if  far-field  (LNRFLD=0)  or 
near-field  (LNRFLD=1)  calculations  were 
requested 

LSOR 

Logical  variable  set  true  if  plates  and 
cylinders  are  to  be  Ignored,  however  LSOR 
is  set  FALSE  in  subroutine  GTDORV 

LUPRNT 

Output  file  number 

N 

DO  loop  variable  for  x,y,z  components 

PH 

Complex  phase  constant 

PHSR 

Phi  angle  of  propagation  direction  in  RCS 

SNF 

Distance  between  source  and  field  point 

THSR 

Theta  angle  of  propagation  direction  in  RCS 

TP  I 

2n 

VXS 

A  3x3  matrix  which  defines  the  source  axes 
in  the  reference  coordinate  system 

XS 

The  x,y,z  components  of  the  source  location 
in  RCS 

XS1 

The  same  as  XS 

I/O  VARIABLES: 

A.  INPUT 

LOCATION 

0 

/DIR/ 

FLDPT 

/NEAR/ 

INCFLD  (GTD) 


LDEBUG 

/TEST/ 

LNRFLD 

/NEAR/ 

LSOR 

F.P. 

LUPRNT 

/AOEBUG/ 

PHSR 

/DIR/ 

THSR 

/DTR/ 

TP  I 

/PIS/ 

VXS 

/SORINF/ 

XS 

/SORINF/ 

OUTPUT 

LOCATION 

EPH 

F.P. 

ETH 

F.P. 

6.  CALLING  ROUTINE: 
GTDDRV 

7.  CALLED  ROUTINES: 
ASSIGN 

BEXP 

CYLINT 

NFD 

PLAINT 

SMAGNF 

SOURCE 

STATIN 


CALCULATE  FIELD 
MAGNITUDE 


PURPOSE:  This  Is  the  driver  routine  for  the  Input  Language 

Processor. 


HETHOO:  Subroutine  INPORV  sets  up  Initial  flags  and  table  pointers. 
It  calls  SCAN  to  Input  each  command  text  to  the  scan  tables.  Then 
PARSE  Is  called  to  parse  the  command  and  put  needed  arguments  In  the 
argument  list.  If  an  RSTART  command  Is  parsed,  the  RESTRT  routine 
Is  called  to  read  In  common  blocks  and  peripheral  files.  When  the 
END  command  Is  parsed  and  there  have  been  no  errors,  PRESCN  is 
called  which  wipes  out  specified  commands.  Finally,  POSTIP  is 
called  to  print  out  tables  If  the  debug  for  ILP  is  turned  on.  If  no 
error  Is  encountered,  control  is  returned  normally  to  GEMACS. 

INTERNAL  VARIABLE: 


VARIABLE 

DEFINITION 

NLOOP 

Index  to  loop  table 

I/O  VARIABLES: 

A.  INPUT 

LOCATION 

ISOFF 

/ADEBUG/ 

ISON 

/ADEBUG/ 

KOLCNT 

/PARTAB/ 

LUPRNT 

/ADEBUG/ 

NARGMX 

/PARTAB/ 

NCARD 

/SCNPAR/ 

NPEARG 

/INPERR/ 

NPELIT 

/INPERR/ 

NPELNF 

/INPERR/ 

NPELOO 

/INPERR/ 

NPESCN 

/INPERR/ 

/INPERR/ 


NPESYH 


INPDRV 


(INPUT) 


NPETSK 

/INPERR/ 

NVALMX 

/SCNPAR/ 

OUTPUT 

LOCATION 

ICALL 

/AOEBUG/ 

IGNORE 

/SCNPAR/ 

NARGTB 

/PARVAB/ 

NCARO 

/SCNPAR/ 

NCARDS 

/SCNPAR/ 

NCODE 

/SCNPAR/ 

NFINCD 

/SCNPAR/ 

NLOOPS 

/PARTAB/ 

NOGOFG 

/ADEBUG/ 

NOPCOD 

/ADEBUG/ 

NPARGL 

/PARTAB/ 

NPDATA 

/PARTAB/ 

NPLITN 

/PARTAB/ 

NLOOP 

/PARTAB/ 

NPLOOP 

/PARTAB/ 

NPRSER 

/SCNPAR/ 

NPTASK 

/PARTAB/ 

NRDCDF 

/SCNPAR/ 

NRESTF 

/SCNPAR/ 

NSCNER 

/SCNPAR/ 

NTSKTB 

/PARTAB/ 

NVAL 

/SCNPAR/ 

RSTART 

/SYSFIL/ 

INPDRV 


(INPUT) 


6. 

CALLING  ROUTINE 

GEMACS 

7. 

CALLED  ROUTINES 

ASSIGN 

*'vt 

PARSE 

POST  IP 

o 

’  t 

PRESCN 

1 

» * 

RESTRT 

SCAN 

r; 
* ' 

STATIN 

r 

STATOT 

f; 

WLKBCK 

v: 


NAME:  INTPLT  (GTD) 

PURPOSE:  Compute  at  a  field  point  the  contributions  of  all  basis 
functions  whose  domains  include  the  source  segment. 

METHOD:  Each  wire  basis  function  spans  three  wire  segments,  as 
shown  in  figure  1.  Hence,  the  total  current  on  any  one  segment  is 
composed  of  parts  of  several  basis  functions  (figure  2).  Each  basis 
function  has  the  form 


I j ( s )  =  Aj  +  BjSink(s-Sj)  +  CjCosk(s-Sj) 


with  (A.,  B.,  C  .)  chosen  so  that 

J  J  J 


w 


1 

0 

0 


The  coefficients  are  directly  related  to  the  lengths  of  the  segments 
spanned  by  the  basis  function  (5^  and  6^  of  figure  1),  so  in 
general  (A,  B,  C)  will  be  different  for  each  basis  function. 


I.  (s)  *  Aj  +  Bj  sin  k  <s-sj)  +  Cj  cos  k  (s-*j) 


S 


Figure  1.  Basis  Function  I.(s)  Spans  Segments  4,  i,  and  k 
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INTPLT  (GTD) 


Figure  2.  Illustrating  How  Three  Basis  Functions  Contribute  to 
the  Total  Current  on  a  Segment 


This  subroutine  computes  the  contribution  of  all  basis  functions 
spanning  segment  1  by  shifting  the  origins  from  s=s^  to  s=si  or 
s*Sj,.  The  trigonometric  Identities  used  for  the  shift  determine  the 
coefficient  weights  for  the  basis  functions. 

When  more  than  one  segment  Is  attached  to  an  end  of  the  source 
segment,  the  average  of  all  6^s  is  used  as  interpolating  length. 

4.  INTERNAL  VARIABLES: 


VARIABLE 

DEFINITION 

CK 

k61k 

CL 

k«n 

CONS 

SINL  +  SINK  -  SILK 

COSK 

cos  k5ik 

COSL 

cos  k5^ 

FT 

Tangential  field  due  to  basis  functions 
spanning  segment  1 

FTC 

Tangential  field  from  a  unit  cosine 
on  segment  1 

current 

FTK 

Tangential  field  from  a  unit  pulse 
on  segment  1 

current 

INTPLT 


(STD) 


FTS 

Tangential 

on  segment 

SILK 

sin  k(6^ 

SINK 

sin  k(6ik) 

SINL 

sin  Mfi^) 

I/O  VARIABLES: 

A.  INPUT 

LOCATION 

ANUMK 

/ANUH/ 

ANUML 

/ANUM/ 

DIK 

/AMPZIJ/ 

DIL 

/AMPZIJ/ 

FTC 

F.P. 

FTK 

F.P. 

FTS 

F.P. 

UAVNUM 

/AMPZIJ/ 

B.  OUTPUT 

LOCATION 

FT 

F.P. 

CALLING  ROUTINE: 
ZGTDRV 

CALLED  ROUTINES: 

ASSIGN 

STATIN 

STATOT 

WLKBCK 
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1.  NAME:  JCTION 


(INPUT) 


2.  PURPOSE:  This  subroutine  locates  all  the  wire  segments  which  are 

connected  at  a  junction,  and  all  segments  that  are  connected  to 
patches. 

3.  METHOD:  All  wire  segment  end  points  are  checked  and  those  end 

points  that  are  within  the  sum  of  the  segment  radii  are  considered 

to  be  connected.  Three  or  more  segments  connected  at  the  same  point 

constitute  a  multiple  junction.  Both  ends  of  each  wire  segment  are 
checked  to  see  If  either  end  Is  connected  to  a  patch.  If  a  segment 
end  Is  within  the  radius  of  the  wire  segment  to  the  patch.  It  Is 
considered  to  be  connected. 

4.  INTERNAL  VARIABLES: 


VARIABLE 

DEFINITION 

OX 

The  difference  In  x  between  segment  end 
points 

0Y 

The  difference  In  y  between  segment  end 
points 

DZ 

The  difference  In  z  between  end  points 

IBLK 

Data  block  Index  for  wire  segment  I 

ICNECT 

Connection  word  for  segment  I 

IJCONT 

Flag  set  to  1  for  segment  I  connected  to 
segment  J 

ILIM 

Location  of  last  wire  segment  In  each  data 
block 

IMINUS 

Connection  data  for  negative  end  of 
segment  I 

INPBLK 

Data  block  where  the  first  patch  segment  is 
located 

IPBLK 

Data  block  index  for  patch  I 

IPLIM 

Location  of  last  patch  In  each  data  block 

I  PLOW 

Location  of  first  patch  segment  In  each 

data  block 
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JCTION  (INPUT) 


I 


I  PLUS 

IPTAG 

IS 

ISAV 

ISP 

ISM 

ITAG 

IWBLK 

IULIM 

JBLK 

JCBIAS 

JCNECT 

JCT 

JCTCON 

JCTNEG 

JCTPOS 

JLIM 

JHINUS 

JP 

JPBLK 


Connection  data  for  positive  end  of 
segment  I 

Tag  number  for  patch  I 

Segment  number  for  segment  I 

Saved  value  for  segment  I 

Segment  number  for  patch  I 

Segment  number  for  wire 

Segment  tag  Information 

Data  block  Index  for  wires 

Location  of  last  wire  segment  in  each  data 
block 

Data  block  index  for  wire  segment  J 

Bias  flag  to  indicate  segment  connected  to 
multiple  junction 

Connection  word  for  segment  J 

Junction  number 

Junction  number  for  a  wire  connected  to  a 
patch 

Multiple  junction  number  for  negative  end 
of  segment  J 

Multiple  junction  number  for  positive  end 
of  segment  J 

Location  of  last  wire  segment  in  each  data 
block 

Connection  data  for  negative  end  of 
segment  J 


First  patch  to  be  searched  for  a  duplicate  m 

patch  after  patch  I 

Data  block  Index  for  patch  J 
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i 

JPLIM 

Location  of  last  patch  In  each  data  block 

JPLUS 

Connection  data  for  positive  end  of 
segment  J 

I 

JPTA6 

Tag  number  for  patch  J 

3 

JS 

Segment  number  for  segment  J 

i 

JSAV 

Saved  value  of  segment  J 

I 

JTAG 

Tag  Identification  for  segment  J 

I 

J1 

First  segment  to  be  searched  after 
segment  I 

MAXSEG 

Maximum  number  of  segments  In  each  data 
block 

HLTJCT 

Biased  multiple  junction  Identification 
number 

i 

MXBLKW 

Number  of  data  blocks  containing  wire 
segments 

NDXBLK 

Data  block  currently  being  used 

1 

NPATCH 

Number  of  patch  segments 

NUHCON 

Number  of  wire  segments  connected  to  a 
patch 

HUHNEG 

Number  of  segments  connected  at  negative 
end  of  segment  I 

NUMPOS 

Number  of  segments  connected  at  positive 
end  of  segment  I 

HWIRE 

Total  number  of  wire  segments 

RI 

Radius  of  segment  I 

RJ 

Radius  of  segment  J 

RMIN 

Minimum  distance  specifying  connection 
criterion 

RSQ 

Radius  squared 
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XCP.YCP.ZCP 


XCPJ,YCPJ,ZCPJ 


XMI,YMI,ZMI 


XMJ.YMJ.ZMJ 


XMW.YMW.ZMW 


XPI.YPI.ZPI 


XPJ,YPJ,ZPJ 


XPW.YPW.ZPH 


ZEROSQ 

I/O  VARIABLES: 
A.  INPUT 
IP217 
ISGTBL 


ISOFF 


JCBIAS 

LUPRNT 


Radius  of  Mire  used  to  determine  a  wire  to 
patch  connection 

X,Y,  and  Z  coordinates  of  patch  I  center 
point 

X,Y,  and  Z  coordinates  of  patch  J  center 
point 

X,Y,  and  Z  coordinates  for  minus  end  of 
wire  segment  I 

XtYf  and  Z  coordinates  for  minus  end  of 
wire  segment  J 

X,Y,  and  Z  coordinates  of  the  negative  end 
of  the  wire  used  for  a  wire  to  patch 
connection 

X(Y,  and  Z  coordinates  of  the  positive  end 
of  wire  segment  I 

X,Y,  and  Z  coordinates  of  the  positive  end 
of  wire  segment  J 

X,Y,  and  Z  coordinates  of  the  positive  end 
of  the  wire  used  for  a  wire  to  patch 
connection 

Connection  separation  distance  criterion 


LOCATION 

/GEODAT/ 

/SEGMNT/ 

/ADEBUG/ 

/ADEBUG/ 

/SEGMNT/ 

/ADEBUG/ 

/SEGMNT/ 


MAXSEG 


JCTION 


(INPUT) 


H 


NDXBLK 

NPATCH 

NUIRE 

SEGTBL 

ZERO 

B.  OUTPUT 
ISGTBL 
MLTJCT 
NOGOFG 
UPOBLK 

6.  CALLING  ROUTINE: 
GEODRV 

7.  CALLED  ROUTINES: 
ASSIGN 

GETSEG 

STATIN 

STATOT 

WLKBCK 


/SEGHNT/ 

/SEGMNT/ 

/SEGHNT/ 

/SEGMNT/ 

/AOEBUG/ 

LOCATION 

/SEGMNT/ 

/SEGMNT/ 

/AOEBUG/ 

/SEGMNT/ 


$1 

* 


V 


LOAD  SEGMENT  J 
CONNECTION  DATA 


V  J 


RETURN 


NAME:  JNCSUM  (GTD,  MOM) 

PURPOSE:  To  add  matrix  element  contributions  due  to  segments  at 
multiple  junctions  to  the  appropriate  matrix  locations. 

METHOD:  JNCSUM  Is  called  each  time  that  a  multiple  segment  junction 
occurs  on  either  end  of  the  source  segment  J.  The  matrix  element 
contributions,  which  are  ETR(l),  ETI(l)  If  the  multiple  junction  Is 
on  end  1  or  ETR(3),  ETI(3)  If  the  multiple  junction  Is  on  end  2,  are 
added  to  the  matrix  rows  of  all  segments  connected  to  the  junction 
If  their  directions  are  the  same  as  that  of  segment  J,  and 
subtracted  If  their  directions  oppose  that  of  segment  J. 

INTERNAL  VARIABLES: 


VARIABLE 

DEFINITION 

CM 

Segment  Interaction  matrix 

ETI 

Imaginary  part  of  matrix  element  contribu¬ 
tion 

ETR 

Real  part  of  matrix  element  contribution 

I 

Index  of  matrix  column  Into  which  element 
contributions  are  entered 

IPR 

Input  Index  of  a  matrix  column 

J 

DO  loop  Index 

JM 

Array  of  Indices  of  matrix  rows  from  which 
ETR  and  ETI  are  subtracted 

JMJ 

JM(J) 

JP 

Array  of  Indices  of  matrix  rows  to  which 
ETR  and  ETI  are  added 

JPJ 

JP(J) 

MAXCON 

Not  used 

NCM 

Number  of  entries  in  JM  array 

NCOL 

Number  of  columns  In  matrix 

NCP 

Number  of  entries  In  JP  array 

NROW 

Number  of  rows  In  matrix 
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JNCSUM 


(GTD,  MOM) 


I/O  VARIABLES: 


INPUT 

LOCATION 

ETI 

F.P. 

ETR 

F.P. 

IPR 

F.P. 

JM 

F.P. 

JP 

F.P. 

MAXCON 

F.P. 

NCM 

F.P. 

NCOL 

F.P. 

NCP 

F.P. 

NROW 

F.P. 

OUTPUT 

LOCATION 

CM 

F.P. 

CALLING  ROUTINES*: 
ZGTDRV  (2) 

ZIJSET  (3) 

CALLED  ROUTINES: 


40  y 

RETURN 


NAME:  LITSCH 


(INPUT) 


PURPOSE:  To  search  for  or  insert  a  number  Into  the  literal  table 
and  return  an  Index  from  the  table. 


METHOD:  The  current  scan  table  entry  NVAL  is  checked  for  a  monadic 
sign.  If  found,  the  scan  table  pointer  NTAB  Is  Incremented  by  1  and 
the  next  scan  entry  Is  assigned  the  monadic  sign.  The  literal  table 
Is  then  searched  for  a  matched  entry.  If  found,  the  Index  to  the 
literal  table  Is  returned  to  the  calling  argument.  If  It  Is  not 
found,  a  new  entry  Is  made  and  the  new  entry  index  Is  returned. 

INTERNAL  VARIABLES: 


VARIABLE 
I  END 

IFLG 

INDEX 

NSIGN 

I/O  VARIABLES: 
A.  INPUT 
IMINUS 
INDEX 


DEFINITION 

Pointer  to  the  last  filled  location  of  the 
literal  table 

Flag  Indicating  double  precision  number 
Index  to  the  literal  table 
Algebraic  sign  of  the  literal 

LOCATION 

/SCNPAR/ 

F.P. 


I  PLUS 

/SCNPAR/ 

ISOFF 

/ADEBUG/ 

KOLCOD 

/PARTAB/ 

KOLVAL 

/PARTAB/ 

LITNMX 

/PARTAB/ 

NCOOE 

/SCNPAR/ 

N0PC00 

/ADEBUG/ 

NPELIT 

/INPERR/ 
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LITSCH 


(INPUT) 


NPENUM 

/INPERR/ 

NPLITN 

/PARTAB/ 

NTAB 

/SCNPAR/ 

NTALPH 

/ADEBUG/ 

NTERR 

/ADEBUG/ 

NTFLPT 

/ADEBUG/ 

NTINT 

/AOEBUG/ 

NTKEYW 

/ADEBUG/ 

NTSYMB 

/ADEBUG/ 

NVAL 

/SCNPAR/ 

VAL 

/SCNPAR/ 

OUTPUT 

LOCATION 

INDEX 

F.P. 

LITNUH 

/PARTAB/ 

NCOOE 

/SCNPAR/ 

NPLITN 

/PARTAB/ 

NPRSER 

/SCNPAR/ 

NTAB 

/SCNPAR/ 

NVAL 

/SCNPAR/ 

VAL 

/SCNPAR/ 

6.  CALLING  ROUTINES: 
FNOARG 
PARSE 


SYMLIT 


.V  V 


•  V «.  .  /.  •  .  •r.  .  .  •  - 


LITSCH 


(INPUT) 


w 


7. 


CALLED  ROUTINES: 

ASSIGN 

FABL02 

STATIN 

STATOT 

WLKBCK 


619 


■V.%  -•• 


UTSCH 


SYMBOL^ 

OR 

KEYWORD ^ 


MULTIPLY  SIGN 
TIMES  NUMBER 


ILLEGAL 

LITERAL 


PRINT 

ERROR 

MESSAGE 

PABL02 


RETURN 


LOOP 

LITERAL  TABLE 
FOR 

LITERAL 


FOUND 


ADD  NEW  LITERAL 
AND  GET  INDEX 


GET  INDEX 
FOR  RETURN 


ENTER  ZERO  IN 
SCAN  TABLE 


RETURN 


1.  NAME:  LNKGTO 


(INPUT) 


2.  PURPOSE:  To  link  together  connected  GTD  geometry  objects  by  placing 
linking  data  In  appropriate  SEGTBL  locations,  and  to  link  MOM 
segments  connected  to  GTD  plates. 

3.  METHOO:  Since  the  geometry  data  set  Is  divided  Into  blocks  and 
resides  on  a  data  file,  extensive  use  Is  made  of  the  In-core  array 
PNTTBL  to  store  Intermediate  linkage  data.  This  approach  makes  It 
possible  to  link  all  GTD  geometries  with  only  two  sequential  passes 
through  the  geometry  data  set. 

The  purpose  of  the  first  pass  (Loop  110)  Is  to  place  In  PNTTBL  addi¬ 
tional  data  that  will  be  needed  to  link  the  geometries: 

Plates:  No  data  required 

Cylinders:  Segment  number  of  cylinder  into  cylinder  PNTTBL 

entry 

End  caps:  Segment  numbers  of  cylinder  and  end  cap  Into  end 

cap  PNTTBL  entry.  Segment  number  of  end  cap 

Into  cylinder  PNTTBL  entry 

The  second  pass  utilizes  the  PNTTBL  data  to  place  the  segment 
numbers  of  adjacent  GTO  geometries  Into  the  SEGTBL  entry  of  the  GTD 
geometry.  The  contents  of  SEGTBL  after  pass  two  are: 


CYLINDER 

ENO  CAP 

PLATE 

1 

ITAG/IS 

ITAG/IS 

2 

L0CEC1/L0CEC2* 

LOCECO/LOCCYL* 

(No 

3 

AA  (m) 

ZLOC* 

change) 

4 

BB  (m) 

THETA  (radians) 

5 

FLEN  (m) 

PHI  (radians) 

6 

XTRL  (m) 

XTRL*  (m) 

7 

YTRL  (m) 

YTRL*  (m) 

8 

ZTRL  (m) 

ZTRL*  (m) 

9 

THETA  (radians) 

THETAR*  (radians) 

10 

PHI  (radians) 

PHIR*  (radians) 

11 

cylinder  number/coord  sys# 

end  cap  number 
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The  starred  entries  are  the  changes  made  by  LNKGTD. 


If  there  are  wire  segments  in  the  geometry,  CNVGTD  is  called  to 
Identify  segments  connected  to  GTD  plates. 


INTERNAL  VARIABLES 

VARIABLE 

0 

ERRFLG 

FLEN 

F1,F2,...F6 

ICSYS 

ICYLPT 

IECPT 

IECOPT 

IEC1 

IEC2 

II, 12,. ..16 
IG 

IGBLK 

IGLIM 

IGLOW 

INPBLK 

ISGN 

ITAG 

ITP 


DESCRIPTION 

Dunmy  variable 

Internal  flag  to  indicate  a  linking  error 
(Integer) 

Length  of  cylinder  (m) 

Arguments  for  GETPNT  and  PUTPNT 

Coordinate  system  number 

PNTTBL  point  number  for  a  cylinder 

PNTTBL  point  number  for  an  end  cap 

PNTTBL  point  number  for  "other"  end  cap  on 
this  end  cap's  cylinder 

Top  of  cylinder  end  cap  number 

Bottom  of  cylinder  end  cap  number 

Arguments  for  GETPNT  and  PUTPNT  (equiva- 
lenced  to  FI-F6) 

Index  to  SEGTBL  entry 

Geometry  block  In  SEGTBL 

Last  GTD  entry  In  SEGTBL 

First  GTD  entry  in  SEGTBL 

First  geometry  block  containing  GTD  entries 

Top  (plus)  or  bottom  (minus)  of  cylinder 
flag 

GTD  geometry  tag  number 

Index  over  GTD  geometry  type  loop 


I 


ITYPE 


LOCCYL 

LOCEC 


LOCECO 


LOCEC 1 
L0CEC2 


THETAR,  PHIR 


XTRL,  YTRL,  ZTRL 


Tag  Identifier  for  GTD  object  being 
considered 

Segment  number  of  cylinder 

Segment  number  of  end  cap 

Segment  number  of  "other"  end  cap  on 
cylinder 

Segment  number  of  top  end  cap 

Segment  number  of  bottom  end  cap 

User-assigned  cylinder  number 

User-assigned  end  cap  number 

User-assigned  end  cap  number  for  "other" 
end  cap 

Angles  defining  rotation  of  cylinder  axis 
(radians) 

Translation  of  cylinder  origin 

Location  of  end  cap  center  (cylinder  coor¬ 
dinate  system) 


I/O  VARIABLES: 
A.  INPUT 


LOCATION 


ICYTAG 

IECTAG 

IP217 

ISGTBL 

ISOFF 


ITAGID 

LUPRNT 


/GTDDAT/ 
/GTDDAT / 
/GEOOAT/ 
/SEGMNT/ 
/ADEBUG/ 
/ADEBUG/ 
/GTDDAT/ 
/ADEBUG/ 
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LNKGTO 


(INPUT) 


MAXBLK 

/SEGMNT/ 

HAXSEG 

/SEGMNT/ 

NPATCH 

/SEGMNT/ 

NTPGTD 

/GTOOAT / 

NUHSEG 

/SEGMNT/ 

NWIRE 

/SEGMNT/ 

SCALE 

/SEGMNT/ 

SEGTBL 

/SEGMNT/ 

B.  OUTPUT 

LOCATION 

ISGTBL 

/SEGMNT/ 

NOGOFG 

/SCNPAR/ 

SEGTBL 

/SEGMNT/ 

UPOBLK 

/SEGMNT/ 

CALLING  ROUTINE: 

GEOORV 

CALLED  ROUTINES: 

ASSIGN 

CNVGTD 

GETPNT 

GETSEG 

GTDCS 

PUTPNT 

STATIN 

STATOT 


WLKBCK 


»: 
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CASE  (TAG-ID) 


PLATE 


CYLINDER 


>20 _ X 


GET  END C 
FROM  PNT1 

AP  MEMBERS 
BL 

1 

f 

GET  END  CAP  DATA 
FROM  PNTTBL 

1 

r 

PLACE 

LOCATl 

INSEGT 

ND  CAP 

ONS 

BL 

±  146  ,  . 

t - j’4- 

150 
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LINK  WIRE  SEGMENTS 
ATTACHED  TO  PLATES 


CUYG ID 


2.  PURPOSE:  This  subroutine  sets  the  circular  linked  list  for  multiple 
junctions. 

3.  METHOD:  All  segments  having  the  same  multiple  junction  are  scanned 
In  ascending  sequence  with  the  segment  pointing  to  the  correct  end 
of  the  following  segment  which  is  connected  at  the  given  junction. 
The  last  segment  found  connected  to  the  junction  is  set  to  point 
back  to  the  first  segment  found  at  the  given  junction. 

4.  INTERNAL  VARIABLES: 


VARIABLE 

DEFINITION 

IFIRST 

Flag  indicating  first  segment  of  junction 
found 

IJCT 

Flag  set  to  the  segment  number  connected  to 
the  junction.  Flag  is  positive  if  the 
positive  end  of  the  segment  is  connected. 
Flag  is  negative  if  the  negative  end  of  the 
segment  is  connected 

I  LAST 

Last  segment  connected  to  a  given  junction 

IOD 

Index  to  output  array  for  junction  informa¬ 
tion 

IS 

Segment  number  in  SEGTBL 

ISG 

Segment  number  being  analyzed 

IWORDS 

Junction  array 

JBIAS1 

Integer  to  bias  connection  data  to  end  one 
of  the  segment 

JBIAS2 

Integer  to  bias  connection  data  to  end  two 
of  the  segment 

JBIAS3 

Integer  to  bias  connection  data  to  a  patch 

JCBIAS 

Integer  to  indicate  a  multiple  junction 
connection 

JCT 

Word  indicating  end  and  number  of  segment 
connected  to  multiple  junction 
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JCTND1 


JCTN02 

JCTNUH 

JCTWRD 

LIHSEG 

LSTBLK 

LSTIOD 

LSTNDX 

MAXSEG 

NDXBLK 

NOGOFG 

NUMJCT 

5.  I/O  VARIABLES: 
A.  INPUT 
DBGPRT 
IP217 
ISGTBL 
ISOFF 
ISON 
JBIAS1 
JBIAS2 
JBIAS3 
JCBIAS 


Junction  Information  for  end  1  of  segment 

Junction  Information  for  end  2  of  segment 

Biased  number  of  multiple  junctions  being 
considered 

Junction  word  for  segment  entry  In  SEGTBL 

Number  of  segment  entries  In  requested  data 
block 

Index  to  data  block  of  last  segment  con¬ 
nected  to  junction 

Maximum  number  of  entries  In  IWOROS  array 

Index  to  SEGTBL  entry  of  last  segment  con¬ 
nected  to  junction 

Maximum  number  of  segments  per  data  block 
Index  to  data  block  currently  In  use 
No  go  flag 
Number  of  junctions 

LOCATION 

/ADEBUG/ 

/GEODAT/ 

/SEGMNT/ 

/ADEBUG/ 

/ADEBUG/ 

/SEGMNT/ 

/SEGMNT/ 

/SEGMNT/ 

/SEGMNT/ 
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V  V 


LSTIOD 
LUPRNT 
NAXSEG 
NLTJCT 
NPATCH 
NWIRE 
SEGTBL 
B.  OUTPUT 
ISGTBL 
NOGOFG 
SEGTBL 
UPDBLK 

CALLING  ROUTINE: 
GEOORV 

CALLED  ROUTINES: 

ASSIGN 

GETSEG 

STATIN 

STATOT 

WLKBCK 


LNKJCT 


(INPUT) 


/ADEBUG/ 

/AOEBUG/ 

/SEGHNT/ 

/SEGHNT/ 

/SEGHNT/ 

/SEGHNT/ 

/SEGHNT/ 

LOCATION 

/SEGHNT/ 

/ADEBUG/ 

/SEGHNT/ 

/SEGHNT/ 


SV/VvVv'-.\« V.  ‘.  . 
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1.  NAME:  LOOORV  (MOM) 

2.  PURPOSE:  To  generate  structure  loading 


3.  METHOO:  Subroutine  LOOORV  retrieves  the  user  specified  geometry 
data  set  and  the  electrical  parameters  on  the  command  card.  If  the 
frequency  Is  the  same  as  on  the  previous  entry,  the  load  data  set 
will  be  appended  to  any  previously  specified  load  data.  Otherwise, 
the  data  set  will  be  reinitialized  before  new  load  data  are 
computed.  The  Impedance  elements  are  calculated  based  on  the  type 
of  load  requested  and  are  entered  Into  the  data  set  specified  at  the 
Index  Identified  by  the  segments  loaded. 

4.  INTERNAL  VARIABLES: 


VARIABLE 

CAPS 

FRQSAV 

HNRY 

IBLK 

IOTYPE 

IP 

IS 

ISEG1 

ISEG2 

ITAG 

ITAG1 

ITAG2 

JSEG 

KWLDTP 

LNKLS 

LOAD 


DEFINITION 

User  Input  capacitance 
Internal  variable  for  frequency 
User  input  Inductance 

Data  block  containing  current  segment 
number 

Flag  for  segments  or  tags  to  be  loaded 

Array  pointer 

Segment  number 

First  segment  loaded 

Last  segment  loaded 

Tag  Index 

First  tag  10  loaded 
Last  tag  ID  loaded 
Segment  number 

Keyword  Indicating  load  type 
Pointer  to  geometry  data  set 
Output  header  array 
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LOODRV 


(MOM) 


LOCI 

LOCR 

LOOTYP 

NAMGOM 

NAMLOS 

NBITLS 

NDXGM 

NOXGOM 

NDXLS 

NOTTAG 

NPRROU 

NROWS 

NXTARG 

OHMS 

RI 

RL 

SEGR 

ZC 

ZI 

ZIMP 

ZL 

ZM 

ZP 

ZR 


Location  of  Imaginary  component 

Location  of  real  component 

Integer  indicating  type  of  load 

Geometry  data  set  name 

Load  data  set  name 

Attribute  word  for  load  data  set 

Index  to  geometry  data  set 

Index  to  default  geometry  name  in  NCODES 
array 

Index  to  load  data  set 

Logical  .TRUE,  for  segment  specification 

Number  of  words  per  row 

Number  of  rows 

Next  argument  In  INTARG  array 

User  supplied  resistance 

Output  array  of  imaginary  part  of  segment 
Impedance 

Output  array  of  real  part  of  segment 
Impedance 

Segment  radius 

Capacitive  impedance 

Imaginary  component  of  impedance 

Internal  Impedance  of  a  circular  wire 

Inductive  Impedance 

Magnitude  of  impedance 

Phase  of  Impedance 

Real  component  of  impedance 
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LOOORV 
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5.  I/O  VARIABLES: 

A.  INPUT 
CUTE 
OGTORD 
FLTARG 
FRQMHZ 
INTAR6 
IPASS 
IP217 
ISEG 
ISGTBL 
ISON 
KBCPLX 
KB LOAD 
KOLCOL 
KOLLNK 
KOLNAM 
KOLROW 
KWCONO 
KWPRLC 
KNSEGS 
KWSRLC 
KWTAGS 
KWZIMP 
LUPRNT 
MAXSEG 


LOCATION 

/AMPZIJ/ 

/GEOOAT/ 

/ARGCOM/ 

/AMPZIJ/ 

/ARGCOM/ 

/ARGCOM/ 

/GEODAT/ 

/SEGMNT/ 

/SEGMNT/ 

/ADEBUG/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/ADEBUG/ 

/SEGMNT/ 
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LOOORV  (MOM) 


S 


I 


Si 


NCOOES 

/PARTAB/ 

NOATBL 

/PARTAB/ 

NDXBLK 

/SEGMNT/ 

NOPCOO 

/AOEBUG/ 

MPOATA 

/PARTAB/ 

HUMARG 

/ARGCOM/ 

SEGTBL 

/SEGMNT/ 

TWOPI 

/AMPZIJ/ 

UPDBLK 

/SEGMNT/ 

ZERO 

/AOEBUG/ 

B.  OUTPUT 

LOCATION 

FRQMHZ 

/AMPZIJ/ 

IERRF 

/ADEBUG/ 

MAXBLK 

/SEGMNT/ 

NAMSEG 

/SEGMNT/ 

NOGOFG 

/AOEBUG/ 

NTFLPT 

/ADEBUG/ 

NUMSEG 

/SEGMNT/ 

TEMP 

/TEMPOl/ 

WAVLGH 

/AMPZIJ/ 

WAVNUM 

/AMPZIJ/ 

CALLING  ROUTINE: 

TSKXQT 
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LOOORV 


(MOM) 


1. 

2. 

3. 

4. 


5. 


NAME:  LOOSYM  (MOM) 

PURPOSE:  Determine  If  structure  loads  have  same  symmetry  as 
structure. 


METHOO:  Directly  compares  loads  on  symmetrical  structure  elements. 

INTERNAL  VARIABLES: 

VARIABLE  DEFINITION 

KSYM  Symmetry  flag 

LOADSM  Load  symmetry  flag 

NPRCEL  Number  of  elements  per  symmetry  cell 

NSYM  Symmetry  variable 

NSYM  >  0:  rotational  symmetry 
NSYM  =  0:  no  operation 
NSYM  <  0:  plane  symmetry 


NZ 

Z 

ZD 

ZDMAX 

ZDSQ 

ZN 

I/O  VARIABLES: 
A.  INPUT 
ISOFF 
ISON 
NSYM 


Dimension  of  load  vector 

Input  load  vector 

Load  difference  between  elements 

Maximum  difference  allowable  for  load 
symmetry 

ZD2 

Load  on  nth  element 

LOCATION 

/ADEBUG/ 

/ADEBUG/ 

F.P. 


NZ 

Z 
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F.P. 


F.P. 
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1.  NAME:  LUOORV  (MOM) 

2.  FUNCTION:  Subroutine  to  execute  DECOMP  command. 


3.  METHOD:  Retrieve  arguments  on  the  command  and  determine  if  decom¬ 
posed  matrix  name  is  the  same  as  the  matrix  to  be  decomposed;  if 
not,  copy  the  matrix  to  be  decomposed  into  the  matrix  that  is  the 
result  of  the  operation.  Determine  if  the  matrix  will  fit  in  core. 
If  not,  set  up  variables  logically  linked  to  the  matrix  to  be  decom¬ 
posed  for  the  lower  and  upper  triangular  decomposed  matrices.  Call 
subroutine  DECOMP  to  execute  the  lower-upper  triangular  decomposi¬ 
tion  by  rows. 

4.  INTERNAL  VARIABLES: 

VARIABLE  DEFINITION 

IBAND  Flag  indicating  if  matrix  to  be  decomposed 

is  banded 

ILOWER  Integer  representation  of  right  justified 

BCD  characters  LWR 

INDX  Index  to  the  NCODES  array  for  the  pivot 

keyword  specified 

INDXA  Tndex  to  the  location  of  the  matrix  to  be 

decomposed  in  the  NDATBL  array 

INDXB  Index  to  the  decomposed  matrix  in  the 

NDATBL  array 

IOBL  Logical  unit  to  contain  the  lower  trian¬ 

gular  matrix 

IOBU  Logical  unit  to  contain  the  upper  triangu¬ 

lar  matrix 

1051  Logical  unit  designation  for  scratch  file  1 

1052  Logical  unit  designation  for  scratch  file  2 

IPVIT  Pivot  argument  on  command 

IREC1  First  record  to  be  retrieved 

IREC2  Last  record  to  be  retrieved 

IUPPER  Integer  representation  of  right  justified 

BCD  characters  UPR 


LUDDRV  (MOM) 

LINKA 

Logical  linkage  for  the  decomposed  matrix 

LOCA 

Logical  unit  designation  for  matrix  to  be 
decomposed 

LOCAIJ 

Location  of  first  element  of  matrix  to  be 
decomposed 

MORE 

Used  for  bits  that  may  be  set 

MXBAND 

The  half  bandwidth  plus  1  of  the  matrix  to 
be  decomposed 

NAMEA 

The  symbolic  name  of  the  matrix  to  be 
decomposed 

NAMEB 

The  symbolic  name  of  the  decomposed  matrix 

NAMEP 

Pivoting  keyword  name 

NAMLWR 

Symbolic  name  of  the  lower  triangular 
matrix  when  the  matrix  will  not  reside  in 
core 

NAMSYM 

Symbolic  name 

NAMUPR 

Symbolic  name  of  the  upper  triangular 
matrix 

NBITA 

Attribute  bit  set  word  of  matrix  to  be 
decomposed 

NBITL 

Attribute  bit  set  word  for  lower  triangular 
matrix 

NBITU 

Attribute  bit  set  word  for  upper  triangular 
matrix 

NCOLA 

Number  of  columns  in  matrix  to  be  decom¬ 
posed 

NCOLS 

The  number  of  columns  of  the  original 
matrix  from  which  the  matrix  to  be  decom¬ 
posed  was  generated 

NCORE 

The  number  of  columns  of  the  matrix  to  be 
decomposed  which  will  reside  in  core  simul¬ 
taneously 
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LUDORV 


(MOM) 


NOXL 


W.a  w 

r>  V 


NOXU 

NMAT 

NPRCOL 

NPRELM 

NPRGET 

NROWA 

NROUS 

NSHIFT 

NSYMBL 

NUMMAT 

NUPPER 


Index  to  the  symbol  table  for  the  lower 

triangle  of  a  matrix 

Index  to  the  symbol  table  for  the  upper 

triangle  of  a  matrix 

Number  of  a  submatrix 

The  number  of  computer  words  per  column  of 
the  matrix  to  be  decomposed 

The  number  of  computer  words  per  element 
of  the  matrix  to  be  decomposed 

The  number  of  records  per  call  when  copying 
the  matrix  to  be  decomposed  Into  the  symbol 
of  the  decomposed  matrix 

The  number  of  rows  in  the  matrix  to  be 
decomposed 

The  number  of  rows  in  the  matrix  from  which 
the  matrix  to  be  decomposed  was  derived 

Bit  shifter 

Number  of  entries  in  the  symbol  table 

Number  of  submatrices  in  original  matrix 

The  number  of  computer  words  per  row  of  the 
upper  triangular  matrix 


1 

i 


“  i 

A* 


£ 

1 

v- 

| 

I 

I 


H'v  . 


N1 

5.  I/O  VARIABLES 
A.  INPUT 
INTARG 
IOFILE 
I0SCR1 
I0SCR2 
I  PASS 


First  submatrix  to  be  decomposed 

LOCATION 

/ARGCOM/ 

/IOFLES/ 

/SYSFIL/ 

/SYSFIL/ 

/ARGCOM/ 
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ISOFF 

ISON 

KBBANO 

KBCPLX 

KBDPRE 

KBLWRT 

KBUPRT 

KOLAST 

KOLB IT 

KOLCOL 

KOLFST 

KOLLNK 

KOLLOC 

KOLNAM 

KOLROU 

KWNAME 

LUPRNT 

MAXSEG 

NBYTSZ 

NCODES 

NDATBL 

NDXBLK 

NOPCOO 

NPOATA 

NPRSEG 


LUOORV 

/ADEBUG/ 

/AOEBUG/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/AOEBUG/ 

/SEGMNT/ 

/AOEBUG/ 

/PARTAB/ 

/PARTAB/ 

/SEGMNT/ 

/AOEBUG/ 

/PARTAB/ 

/SEGMNT/ 


(MOM) 
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I 


NUMSEG 

/SEGMNT/ 

RSTART 

/SYSFIL/ 

SEGTBL 

/SEGMNT/ 

B.  OUTPUT 

LOCATION 

IERRF 

/ADEBUG/ 

ISGTBL 

/SEGMNT/ 

NDATBL 

/PARTAB/ 

SEGTBL 

/SEGMNT/ 

TEMP 

/TEMPOl/ 

UPOBLK 

/SEGMNT/ 

CALLING  ROUTINE: 

TSKXQT 

CALLED  ROUTINES: 

2.  PURPOSE:  To  check  a  peripheral  file  for  an  EOF 


3. 

4. 


5. 


6. 


7. 


METHOD:  Reads  each  command  on  the  user  Input  data  deck.  On  next 
call  after  last  command  an  end-of-flle  (EOF)  Is  returned. 


INTERNAL  VARIABLES: 

VARIABLE 

LSTCOL 

LUTASK 

NCARD 

NDFILE 

I/O  VARIABLES: 

A.  INPUT 
LSTCOL 
LUTASK 
NCARD 

B.  OUTPUT 
NDFILE 

CALLING  ROUTINE: 
SCAN 

CALLED  ROUTINES: 
NONE 


DEFINITION 

Last  column  of  the  command  to  be  read 
Logical  unit  on  which  the  command  resides 
Command  array 

Flag  Indicating  end-of-flle  status  on 
LUTASK 

LOCATION 

F.P. 

F.P. 

F.P. 

LOCATION 

F.P. 
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NAME:  MOVFIL 


(6TD,  INPUT,  MOM,  OUTPUT) 


FUNCTION:  To  position  the  peripheral  files. 

METHOD:  The  file  requested  Is  positioned  for  the  number  of  words 
requested.  If  the  file  Is  to  be  moved  backwards.  It  Is  rewound  and 
then  read  forward  to  the  correct  word.  If  the  file  is  to  be  posi¬ 
tioned  forward.  It  simply  reads  the  correct  number  of  words  to 
achieve  the  position  desired. 


INTERNAL  VARIABLES: 


VARIABLE 


IFILE 


MOVWRD 


NBUFS 

NPRBUF 


I/O  VARIABLES: 
A.  INPUT 


DBGPRT 


IFILE 


IOFILE 


LUPRNT 


MOVWRD 


NPRBUF 

NTEMPS 


DEFINITION 

Logical  unit  to  be  positioned 

Internal  variable  for  IFILE 

Internal  variable  for  number  of  words  file 
Is  to  be  moved 

Argument  specifying  number  of  words  file  is 
to  be  moved 

Number  of  reads  required  to  move  file 
The  number  of  words  per  read  for  the  file 


LOCATION 

/AOEBUG/ 


/IOFLES/ 

/ADEBUG/ 

/ADEBUG/ 


/TEMPO 1/ 


»_•*'*  m  *  *  «*  •»  ■  f  m  r  w  —  *  .  f  ,  “  .  <  * 


MOVFIL 

B.  OUTPUT 
IERRF 
IOFILE 
TEMP 

6.  CALLING  ROUTINES*: 
BUBBLE  (1) 

OECOMP  (3) 

GEOORV  (1) 

GETSYM  (1,2, 3, 4) 
PUTSYM  (1,2, 3,4) 
SOLDRV  (3) 

STRTUP  (2,3,4) 
SUBPAT  (1) 

7.  CALLED  ROUTINES: 
ASSIGN 

ERROR 

RDEFIL 


♦1-INPUT 

2- GTD 

3- MOM 

4- OUTPUT 


(GTD,  INPUT,  MOM,  OUTPUT) 

LOCATION 

/ADEBUG/ 

/IOFLES/ 

/TEMPOl/ 


STATIN 

STATOT 

WLKBCK 


(GTD,  INPUT,  MOM,  OUTPUT) 


GENERATE 

FATAL 

ERROR 

ERROR 


STOP  77 


RETURN 


1.  NAME:  NANOB 


(STD) 


2.  PURPOSE:  To  calculate  the  unit  vectors  for  rays  normal  and  tangent 
to  the  elliptical  cylinder  at  a  given  point  JC  (in  x-y  plane) 
defined  by  elliptic  angle  VR. 


3.  METHOD:  For  the  point  on  the  cylinder  defined  by  the  elliptic  angle 
VR,  the  unit  normal  vector  is  given  as: 

A  ^  ~ 

UN  -  S  B  cos(VR)  +  y  A  sin(VR) 

VB2  cos2(VR)  +  A2  sin2(VR) 

and  the  unit  tangent  vector  is  given  by: 


A 

UT 


-x  A  sin  (VR)  +  y  B  cos  (VR) 
n B2  cos2 ( VR)  +  A2  sin2 ( VR) 


as  shown  in  figure  1. 


NANPB 


(GTD) 


INTERNAL  VARIABLES: 


VARIABLE 


DEFINITION 


Cylinder  radius  along  x  axis. 

Cylinder  radius  along  y  axis. 

Magnitude  of  tangent  and  normal  vectors. 

X  and  Y  components  of  unit  vector  normal  to 
cyl inder  in  reference  coordinate  system 
(RCS). 

X  and  Y  components  of  unit  vector  tangent 
to  cylinder  in  reference  coordinate  system 
(RCS). 

Elliptical  angle  in  RCS  x-y  plane  defining 
the  point  on  cylinder  for  which  normal  and 
tangent  unit  vectors  are  to  be  calculated. 


I/O  VARIABLES: 


A.  INPUT 


LOCATION 


CALLING  ROUTINES: 


7.  CALLED  ROUTINES: 


/GEOMEL/ 

/GEOMEL/ 


B.  OUTPUT 


LOCATION 


DPLRCL 


RCLRPL 


RPLSCL 


ENDIF 


REFCYL 


SCLRPL 


RCLOPL 


RPLRCL 


SCTCYL 
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NAME:  NERFLO 


(MOM) 


PURPOSE:  To  compute  the  x,  y,  and  z  components  of  the  electric 
field  of  a  structure  with  known  currents  at  any  point  in  space, 
particularly  In  the  near-field  region  of  the  structure.  Ground 
Interaction  is  also  taken  into  account  using  the  reflection  coeffi¬ 
cient  method. 

METHOD:  The  electric  field  of  each  structure  wire  segment  is  calcu¬ 
lated  by  the  subroutine  TNEFLO  where  the  current  is  assumed  to  be 


xi(t> 

— x —  =  I  +  sin  2irt  +  cos  2  irt 


The  elements  of  the  field  corresponding  to  the  sine,  cosine,  and 
constant  terms  are  then  modified  in  this  routine  to  reflect  the 
actual  current  component  amplitudes  which  have  been  calculated, 
where  the  actual  current  is  given  by 


I.(t) 

— x —  =  A.  +  B.  sin  2 it t  +  C.  cos  2irt 

A  XI  X 


The  electric  field  components  calculated  by  TNEFLD  are  the  p 
and  z  components  In  a  cylindrical  coordinate  system  centered  and 
aligned  with  the  source  segment.  These  components  are  resolved  into 
the  x,  y,  z  coordinate  system  of  the  structure,  and  the  contribution 
from  each  segment  Is  added.  If  a  ground  is  present,  the  contribu¬ 
tion  of  the  image  of  each  segment  Is  also  calculated  and  summed. 
The  modification  of  the  image  field  by  the  appropriate  reflection 
coefficients  Is  done  In  subroutine  GNDREF. 

The  coordinates  of  the  observation  point  must  be  calculated  in 
the  cylindrical  coordinate  system  (p,  z)  which  subroutine  TNEFLD 
assumes.  If  the  observation  point  is  given  by  ?0  and  the  source 
segment  by  rf,  and  the  orientation  of  the  segment  and  cylindrical 
coordinate  system  is  given  by  u^,  then  letting 


r  .  =  r  -  c  . 
d  o  1 
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NERFLD 


(MOM) 


the  location  of  the  observation  point  is  given  by 


01 


=  U, 


ui) 


P 


oi 


z 


oi 


The  electric  field  due  to  current  density  J  on  each  structure 
patch  of  area  A  is  calculated  by: 


i<?  )  = 

'  o'  4?rk 


^k2R2  -  1  -  ikR^ 


^  ^  g 


-jkR 


where:  k  =  2tt/X 

R  =  source  to  field  vector 
n  =  376  ohms  (free  space  impedance) 


The  total  field  is  found  by  summing  the  contribution  for  each  patch 
and  wire  object. 


INTERNAL  VARIABLES: 

VARIABLE 

All 

AIR 

ARG 

B 

BII 

BIR 


DEFINITION 
Imaginary  part  of  A^ 

Real  part  of  A^ 

nA  in  field  calculation  due  to 
patch  source 

Radius  of  wire  segment 

Imaginary  part  of 

Real  part  of  B. 


NERFLD 


(MOM) 


CII 

CIR 

CTH 

ERHO 

ERIC, ERIK, ERIS 
ERRC,ERRK,ERRS 
ETAK 

EX,EY,EZ 

EXS,EYS,EZS 

EZIC.EZIK.EZIS 

EZP 

EZRC,EZRK,EZRS 

INCORE 

IPATCH 

IWIRE 

JX,JY,JZ 
LAI 
LAR 
LB  I 


Imaginary  part  of  Ci 

Real  part  of  C^ 

Cos(0)  for  reflected  ray 

El  with  actual  current  amplitude 
P 

Imaginary  part  of  (E^)  for  cosine,  con¬ 
stant,  and  sine  unit  currents,  respectively 

Real  part  of  (E^)  for  cosine,  constant  and 
sine  unit  currents,  respectively. 

Complex  value  for  ETA 

X,Y,Z  components  of  the  electric  field  from 
the  wire  segment  at  the  observation  point 

Same  as  EX,  EY,  EZ  for  a  patch  source 

Imaginary  part  of  (Ep  in  the  cylindrical 

coordinate  system  for  cosine,  constant,  and 
sine  unit  current  amplitudes,  respectively 

E^  in  cylindrical  coordinates  for  actual 
segment  current 

Real  part  of  (Ep  in  the  cylindrical  coor¬ 
dinate  system  for  cosine,  constant  and  sine 
unit  current  amplitudes,  respectively 

Logical  .TRUE,  when  A,B,C  of  current  expan¬ 
sion  are  stored  in  core 

Flag  indicating  patch  observation  point 

Flag  indicating  local  cylindrical  coordi¬ 
nate  system  is  used 

Surface  current  components 

Location  of  imaginary  part  of  A.. 

Location  of  real  part  of  A. 

Location  of  imaginary  part  of  B. 

Location  of  real  part  of  B. 


LBR 


I 


1 


I0SCR1 

/SYSFIL/ 

IPERF 

/AMPZIJ/ 

ISEG 

/SEGMNT / 

ISOFF 

/AOEBUG/ 

ISON 

/ADEBUG/ 

KSYHP 

/AMPZIJ/ 

LOCAII 

/FLDCOM/ 

LOCAIR 

/FI.DCOM/ 

LOCBII 

/FLDCOM/ 

LOCBIR 

/FLDCOM/ 

LOCCII 

/FLDCOM/ 

LOCCIR 

/FLDCOM/ 

LUPRNT 

/ADEBUG/ 

MAXBLK 

/SEGMNT/ 

NWIRE 

/SEGMNT/ 

SEGTBL 

/SEGMNT/ 

TEMP 

/TEMPOl/ 

TWOPI 

/AMPZIJ/ 

WAVNUM 

/AMPZIJ/ 

XOB 

F.P. 

YOB 

F.P. 

ZOB 

F.P. 

ZRATI 

/AMPZIJ/ 

NERFLD 


(MOM) 


-4 


OUTPUT 

LOCATION 

CABJ 

/AMPZIJ/ 

EX 

F.P. 

EY 

F.P. 

EZ 

F.P. 

PX 

/AMPZIJ/ 

PY 

/AMPZIJ/ 

REFH 

/AMPZIJ/ 

REFV 

/AMPZIJ/ 

RHOX 

/AMPZIJ/ 

RHOY 

/AMPZIJ/ 

RHOZ 

/AMPZIJ/ 

S 

/AMPZIJ/ 

SABJ 

/AMPZIJ/ 

SALPR 

/AMPZIJ/ 

6.  CALLING  ROUTINE: 
FLODRV 

7.  CALLED  ROUTINES: 
ASSIGN 

GETSEG 

GNDREF 

STATIN 

STATOT 

TNEFLD 

WLKBCK 
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PURPOSE:  To  compute  the  unit  vector  between  two  points  and  the  theta 
and  phi  angles  of  the  vector  In  the  reference  coordinate  system 
(RCS).  This  Is  used  In  the  near-field  calculations. 

METHOD:  Vector  algebra  is  used  to  compute  the  unit  vector  (0) 
between  points  FLDPT  and  X,  and  to  compute  the  theta  (THSR)  and  phi 
(PHSR)  angles.  Figure  1  shows  an  illustration  of  these  quantities. 

INTERNAL  VARIABLES: 


VARIABLE 


DEFINITION 


FLDPT 


The  unit  vector  between  point  X  and  point 
FLDPT.  The  x,  y,  z  components  are  stored 
in  D(l),  D(2),  D(3)  respectively 

Ending  point  of  vector 


FPTMAG 


Magnitude  of  vector  between  point  X  and 
point  FLDPT 


I/O  VARIABLES: 


Phi  angle  of  unit  vector  D 
Theta  angle  of  unit  vector  D 
Starting  point  of  vector 


A.  INPUT 


LOCATION 


FLDPT 


B.  OUTPUT 


LOCATION 
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Illustration  of  the  Reference  Coordinate  System  Angles 
(THSR,  PHSR)  for  the  Near-Field  Distance  of  a  Ray 
Propagating  from  a  Reflection  Point  on  a  Plate  to  a 
Field  Point 


<o 


NFD  (GTD) 


CALLING  ROUTINES: 


DFPTCL 

INCFLD 

RPLDPL 

OFPTWO 

RCLDPL 

RPLRCL 

DIFPLT 

RCLRPL 

RPLRPL 

DPLRCL 

REFCAP 

RPLSCL 

DPLRPL 

REFCYL 

SCLRPL 

ENDIF 

REFPLA 

SCTCYL 

GTDDRV 

RFDFPT 

CALLED  ROUTINE: 
NONE 


j»  V  V  V  •“ 


NAME:  NTGRAN 


(GTO,  MOM) 


PURPOSE:  To  compute  the  value  of  the  integrand  for  numerical 
integration. 

METHOD:  The  real  and  imaginary  part  of  the  integrand  is  computed. 
When  a  wire  is  located  at  an  observation  point,  the  integrand 

Iw  =  e‘jkr/kr 

is  evaluated,  and  for  a  patch  located  at  an  observation  point,  the 
i ntegrand 


is  evaluated. 

INTERNAL  VARIABLES: 

VARIABLE 

DEFINITION 

CO 

Real  part  of  the  integrand 

CRK 

cos  (kr) 

IJ 

Flag  for  numerical  integration 

I PATCH 

Flag  indicating  a  patch  observation  point 

RHK 

kp 

p  1 

RK 

k  ip 1  ^  +  z'2]*5  for  wire  observation  poii 
kr  for  patch  observation  point 

RKB2 

kp' 

RK2 

kV 

RRK2 

l/k2r2 

RRK3 

l/k3r3 

SI 

Imaginary  part  of  the  integrand 

NTGRAN 


(GTD,  MOM) 


.v. 


SRK 

ZDK 

ZK 


5.  I/O  VARIABLES: 

A.  INPUT 
IJ 

I PATCH 

ISON 

RHK 

RKB2 

ZK 

ZPK 

B.  OUTPUT 
CO 

SI 

6.  CALLING  ROUTINE: 
ROMBNT 

7.  CALLED  ROUTINES: 
NONE 


sin  (kr) 

The  wavenumber  times  the  difference  In 
polar  z  coordinates 

Wavenumber  times  the  z  coordinate  of  the 
source  point 

Wavenumber  times  the  polar  z  coordinate  of 
the  observation  point 


LOCATION 

/TMI/ 

/TMI/ 

/ADEBUG/ 

/TMI/ 

/TMI/ 

F.P. 

/TMI/ 

LOCATION 

F.P. 

F.P. 
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SET  PARAMETERS 
COMPUTE  IMAGINARY  TERM 


SET  PARAMETERS  FOR 
PATCH  OBSERVATION  POINT 


1.  NAME:  NTRPLT 


(MOM) 


2.  PURPOSE:  To  compute  the  contributions  to  the  matrix  elements  due  to 
the  current  on  a  single  segment. 

3.  METHOD:  Subroutine  NTRPLT  is  called  by  subroutine  ZIJSET  to  compute 
the  fields  tangent  to  segment  i  or  patch  i  produced  by  the  three 
components  of  the  current  basis  function  on  segment  j.  The  current 
basis  function  on  segment  j  is 


I  .  (s)  =  A.  +  B.  sin  k  (s  -  s.)  +  C.  cos  k  (s  -  s.) 

3  3  3  3  3  3 


Expressions  for  A.,  B.t  and  C.  in  terms  of  the  currents  at  the 

J  J  J 

center  of  segment  j  and  at  the  center  of  adjacent  segments  are  given 
in  the  discussion  of  subroutine  CABC.  When  fillinc  the  matrix,  the 
currents  at  the  segment  centers  are  unknown  and  henc*?  are  factored 
out,  putting  the  current  in  the  form 


Ij(s)  =  IjXj (s)  +  I.Y.(s)  +  IkZj(s) 


where 


Xj(s)  =  ^  [sin  k  6^  +  (cos  k  <5jk  -1)  sin  k  (s  -  s^) 


-  sin  k  •  cos  k  (s  -  s ^ ) J 


Yj(s)  =  |  [-sin  k  ( 5  j  ^  +  6jk)  +  (cos  k  6^-cos  k  6j)() 

sin  k  (s  -  Sj)  +  (sin  k  5^  +  sin  k  <5jk)  cos  k  (s  -  s  ^ )  J 

Zj(s)  =  ^  [sin  k  +  (1  -  cos  k  6^)  sin  k  (s  -  s^) 


-  sin  k  •  cos  k  (s  -  sj)J 
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(MOM) 


where  the  symbols  are  as  defined  for  subroutine  CABC.  The  electric 
or  magnetic  field  incident  on  observation  segment  i  computed  from 
this  current  distribution  is 


=  llE1  +  I.E2  +  ikE3 


I  [\  sin  k  6jk  +  Es  (cos  k  Sjk  -1)  -  Ec  sin  k  5jk] 

I  [-Ek  sin  k  (6jft  +  Sjk)  +  Es  (cos  k  «j4  -  cos  k  6jk) 


+  Ec  (sin  k  6^  +  sin  k  Sjk)J 


i  [ 


E.  sin  k  6.0  +  E  (1  -  cos  k  5  0)  -  E  sin  k  6. 


where 


=  field  due  to  constant  current  on  segment  j 
=  field  due  to  current  sin  k  (s  -  s.)  on  segment  j 

J 

=  field  due  to  current  cos  k  (s  -  s.)  on  segment  j 

J 


The  term  E2  •  i  is  the  contribution  to  the  matrix  element  Gjj.  Here 
i  is  either  the  unit  vector  in  the  direction  of  segment  i  or  the 
unit  vector  in  the  direction  of  tj  or  £3  of  the  observation  patch 

i.  Ei  •  T  and  E3  •  T  contribute  to  elements  in  row  i  with  column 
Indices  of  the  segments  that  connect  end  one  and  end  two  of  segment 

j,  respectively.  Subroutine  TNEFLD  is  called  to  compute  the 
electric  fields  E|<,  Es,  and  Ec  which  are  returned  in  vector  compo¬ 
nents  p1  and  z1  defined  in  a  cylindrical  coordinate  system  with 
origin  at  the  center  of  segment  j  and  z1  =  j,  where  j  is  the  unit 
vector  in  the  direction  of  segment  j.  TNHFLD  is  called  to  compute 
the  magnetic  fields  which  are  returned  as  the  <j>  component  of  the 
cylindrical  coordinate  system  defined  with  respect  to  the  origin  of 
segment  j  and  z*  =  j. 


yj  y.  TT  f?  JT*rv?r£r;9 
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4.  INTERNAL  VARIABLES: 
VARIABLE 
CABJ 

CK 

CL 

CONS 

COSK 

COSL 

OIJ 

OIK 

DIL 

DIR 

ERIC 

ERIK 

ER15 

ERRC 

ERRK 

ERRS 

ETI 

ETIC 

ETIK 


i 

v1 

i 
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DEFINITION 

The  unit  vector  In  the  x  direction  of  the 
wire  source 


k6 


SILK 


jk 
kSjA 

A  =  SINL  +  SINK 
cos  (k6 jk) 
cos  (k« jJt) 

A  A 

1  *  j 

Sjk  -  the  interpolation  length  between 
segment  j  and  adjacent  segment  k 

6jj,  -  the  interpolation  length  between 
segment  j  and  adjacent  segment  1 

A  A 

1  •  p' 

Imaginary  part  of  p'  component  of  Ec 

Imaginary  part  of  p'  component  of  Ek 

Imaginary  part  of  p'  component  of  E$ 

Real  part  of  p'  component  of  Ec 
Real  part  of  p'  component  of  E^ 

Real  part  of  p'  component  of  E 


Array  ^containing  imaginary  parts  of  Ej 
E?  •  1*  and  E3  •  i 

Imaginary  part  of  E 


S' 

i. 


-H 


'2 

iry 

'2 
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ETIS 

Imaginary  part  of  E  •  ?,  -H  •  t,,  or 
-Hs  •  t2 

ETR 

Array  ^containing  real  parts  of  Ej  •  ?, 

E2  •  i ,  and  E^  •  ? 

ETRC 

Real  part  of  Ec  ■  ?,  -Hc  •  t^  or  -Hc  •  t? 

ETRK 

Real  part  of  Ek  •  ?,  -Hk  •  or  -Hk  •  t,. 

ETRS 

Real  part  of  E$  •  ?,  -H$  •  or  -H$  •  t? 

EZIC 

Imaginary  part  of  z‘  component  of  Ec 

EZIK 

Imaginary  part  of  z1  component  of  Ek 

EZIS 

Imaginary  part  of  z'  component  of  E$ 

EZRC 

Real  part  of  z'  component  of  Ec 

EZRK 

Real  part  of  z'  component  of  Ek 

EZRS 

Real  part  of  z'  component  of  E$ 

FZI 

Variable  set  to  zero  in  calling  GNDREF  when 
using  a  cylindrical  coordinate  system 

FZR 

Variable  set  to  zero  in  calling  GNDREF  when 
using  a  cylindrical  coordinate  system 

HPIC.HPRC 

The  imaginary  and  real  parts  of  the  magni¬ 
tude  of  the  <t>  component  of  magnetic  field 
due  to  a  cosine  current,  Hc 

HPIK.HPRK 

The  imaginary  and  real  parts  of  the  magni¬ 
tude  of  the  4>  component  of  the  magnetic 
field  due  to  a  constant  current,  Hk 

HPIS.HPRS 

The  imaginary  and  real  parts  of  the  magni¬ 
tude  of  the  4>  component  of_  the  magnetic 
field  due  to  a  sine  current,  H$ 

HXIC.HXRC 

The  imaginary  and  real  parts  of  H  in  the  x 
direction 

HXIK.HXRK 

The  imaginary  and  real  parts  of  Hk  in  the  x 
direction 
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HXIS.HXRS 

The  Imaginary  and  real  parts  of  H  in  the  x 
direction 

HYIC.HYRC 

The  imaginary  and  real  parts  of  H  in  the  y 
direction  L 

HYIK.HYRK 

The  imaginary  and  real  parts  of  in  the  y 

direction 

HYIS.HYRS 

The  imaginary  and  real  parts  of  H  in  the  y 
direction 

HZIC.HZRC 

The  imaginary  and  real  parts  of  H  in  the  z 
direction 

HZIK.HZRK 

The  imaginary  and  real  parts  of  in  the  z 

direction 

HZIS.HZRS 

The  imaginary  and  real  parts  of  H  in  the  2 
direction 

IJ 

(i  -  j)  flag  for  wires  or  odd/even  flag  for 
patches 

IP 

When  IP  =  2,  indicates  the  field  is 
reflected  from  ground  plane. 

I PATCH 

A  flag  indicating  a  patch  observation  point 

IMIRE 

A  flag  indicating  a  wire  source  segment  and 
that  a  local  cylindrical  coordinate  system 
is  used 

PHX,PHY,PHZ 

The  components  of  <J>,  where  =  (j  x  p) 

RH 

p  coordinate  of  segment  i  in  p1 
and  z1  coordinates 

RHOX.RHOY.RHOZ 

The  x,  y,  and  z  components  of  p 

SABJ 

The  unit  vector  in  the  y  direction  of  the 
source  segment 

SALPR 

The  unit  vector  in  the  z  direction  of  the 
source  segment 

p  n 

SILK 

s1n[k  <5j*  +  vj 

SINK 

sin  (k  6Jk) 

II 
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vs 


.  *  «  «rj  ’  -  "  - 


.vi 


TIXI.TIYI.TIZI 

T2XI,T2YI,T2ZI 

WAVNUM 


I/O  VARIABLES: 
A.  INPUT 
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Sln  6ji> 

tj  unit  vector  of  observation  patch 
tg  unit  vector  of  observation  patch 
2tt/X 

z  coordinate  of  segment  1  in  p'  and  z' 
coordinates 


LOCATION 

/AMPZIJ/ 


/AMPZIJ/ 

/AMPZIJ/ 


I PATCH 
ISOFF 


/ADEBUG/ 

/ADEBUG/ 


'  A 


•  *.•  V  v  w  *  • 

\  •,  *.  o »  ■  V  *  * 

*  •  ’  I  ^ • • »  ,  - 


RHOX.RHOY.RHOZ 


SALPR 

T1XI.T1YI.T1ZI 

T2XI.T2YI.T2ZI 

WAVNUM 


«*  «  '  J,  •  ,  *  . 


/AMPZIJ/ 

/AMPZIJ/ 

/AMPZIJ/ 

/AMPZIJ/ 

/AMPZIJ/ 

/AMPZIJ/ 
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1.  NAME:  NTRPLU 


(MOM) 


2.  PURPOSE:  To  compute  the  complex  field  components  of  the  Interaction 
matrix  due  to  unit  currents  on  a  patch. 

3.  METHOD:  This  subroutine  Is  called  by  the  subroutine  ZIJSET  to 
compute  the  tangential  electric  field  along  the  observation  segment 
and  to  compute  the  magnetic  field  at  the  observation  patch. 

The  electric  field  due  to  a  surface  patch  is  computed  by  calling  the 
routine  UNEFLD,  and  the  component  of  the  field  tangent  to  the  wire 
Is  computed  as  a  dot  product  with  the  unit  vector  in  the  direction 
of  the  observation  segment.  This  result  is  stored  in  the  arrays  ETR 
and  ETI.  For  the  case  where  the  observation  segment  is  connected  to 
the  surface  (indicated  by  ICON  not  equal  to  zero),  the  electric 
field  due  to  the  four  subpatches  around  the  base  of  the  segment  is 
calculated  by  the  subroutine  WYRPAT. 

For  source  patch  j  and  observation  patch  i,  NTRPLU  calls  UNHFLD  to 

obtain  the  H-flglds  at  £he  center  of  patch  1  due  to  unit  currents  in 

the  directions  1 1 j  and  t2j  on  patch  j.  The  matrix  elgments  $re 
computed  as  components  of  the  H-field  in  the  directions  tij  and  tp^ 
and  they  are  stored  in  the  arrays  ETR  and  ETI.  These  matrix 
elements  represent  the  third  terms  in  equation  57  and  the  negative 
of  equation  58  in  the  Engineering  Manual.  When  the  source  and 

observation  patches  coincide,  contributions  of  ±1/2  from  the  second 

term  in  equation  57  and  the  negative  of  equation  58  of  the  Engi¬ 
neering  Manual  are  added  to  the  interaction  matrix. 

When  a  ground  is  present  the  field  of  the  image  of  the  patch  is 
computed,  multiplied  by  the  reflection  coefficients,  and  added  to 
the  direct  field. 

4.  INTERNAL  VARIABLES: 

VARIABLE 
CAB  I 


ETI,  ETR 


EWPI,  EWPR 


EXIT1,  EYIT1,  EZIT1 
EXRT1,  EYRT1,  EZRT1 


DEFINITION 

X  component  of  the  observation  segment  unit 
vector 

An  array  containing  the  imaginary  and  real 
parts  of  the  interaction  terms 

An  array  containing  the  imaginary  and  real 
parts  of  the  interaction  terms  for  a  wire 
connected  to  a  patch 

The  x,y,  and  z  components  of  the  imaginary 
and  real  part  of  the  electric  or  magnetic 
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field  at  the  observation  segment  due  to  a 
current  in  the  t^  direction  on  the  source 
patch 


EXIT2,  EYIT2, 
EXRT2,  EYRT2, 

EZIT2 

EZRT2 

The  x,y,  and  z  components  of  the  imaginary 
and  real  part  of  the  electric  or  magnetic 
field  at  thg  observation  segment  due  to  a 
current  in  t2  direction  on  the  source  patch 

ICON 

A  flag  indicating  that  a  wire  observation 
segment  is  connected  to  the  patch  source 

I PATCH 

A  flag  indicating  that  the  observation 
point  is  a  patch 

IWIRE 

A  flag  indicating  a  wire  source  segment  and 
that  a  local  cylindrical  coordinate  system 
is  used 

KP 

A  flag  which  when  equal  to  two  indicates 
reflection  from  the  ground  plane 

SABI 

Y  component  of  the  observation  segment  unit 
vector 

SALPI 

Z  component  of  the  observation  segment  unit 
vector 

T1XI ,  T1YI,  T1ZI 

X,Yt  and  Z  components  of  ti  for  the  obser¬ 
vation  patch 

T2XI,  T2YI ,  T2ZI 

X,Y,  and  Z  components  of  t?  for  the  obser¬ 
vation  patch 

XIJ,  YIJ,  ZIJ 

X,Y ,  and  Z  components  of  the  vector  from 
the  source  patch  to  the  observation  segment 

I/O  VARIABLES: 

A.  INPUT 

LOCATION 

CAB  I 

/AMPZIJ/ 

EXIT1,  EYIT1,  EZIT1  /AMPZIJ/ 
EXIT2,  EYIT2,  EZIT2  /AMPZIJ/ 
EXRT1,  EYRTI,  EZRT1  /AMPZIJ/ 


EXRT2,  EYRT2,  EZRT2  /AMPZIJ/ 
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ICON 

F.P. 

I PATCH 

F.P. 

ISOFF 

/ADEBUG/ 

ISON 

/ADEBUG/ 

KP 

F.P. 

SABI 

/AMPZIJ/ 

SALPI 

/AMP ZIJ/ 

T1XI ,  T1YI,  T1ZI 

/AMPZIJ/ 

T2XI ,  T2YI,  T2ZI 

/AMPZIJ/ 

XIJ,  YIJ,  ZIJ 

F.P. 

OUTPUT 

LOCATION 

ETI,  ETR 

F.P. 

EWPI,  EWPR 

F.P. 

CALLING  ROUTINE: 
ZIJSET 

CALLED  ROUTINES: 

ASSIGN 

GNDREF 

STATIN 

STATOT 

UNEFLD 

UNHFLD 

WLKBCK 


WYRPAT 


4  * 

ZERO  OUT  ETR 

AND  ETI  ARRAY 

PATCH  \YES 
OBSERVATION  / 


"CONNECTED  TO\_I£L 
.  A  WIRE  / 


CALL  UNEFLD  TO 
COMPUTE  FIELD 
COMPONENTS 


CALL  UNHFLD  TO 
COMPUTE  FIELD 
COMPONENTS 


FIELD  FOR 
REFLECTED 
.  PATCH  . 


FIELD  FOR' 
REFLECTED 
.  PATCH  . 


CALL  GNDREF  TO 
REFLECT  ALL 
COMPONENTS 


CALL  UNEFLD  TO 
COMPUTE  FIELD 
COMPONENTS 


CALL  WYRPAT  TO 
COMPUTE  FIELD 
COMPONENTS 


CALL  GNDREF  TO 
REFLECT  ALL 
COMPONENTS 


CALCULATE  TOTAL 
INTERACTION 
ON  WIRE 


CALCULATE  TOTAL 
INTERACTION 
ON  PATCH 


•/■..•VI'.’VVVV • 


1.  NAME:  OPNFIL  (GTD,  INPUT,  MOM,  OUTPUT) 

2.  PURPOSE:  Subroutine  to  open  peripheral  files. 

3.  METHOO:  Subroutine  opens  peripheral  files  by  setting  internal  vari¬ 
ables.  If  the  file  is  already  open,  a  fatal  error  condition  is 
Initiated.  If  the  file  is  not  open,  the  file  is  rewound  and  the 
file  pointer  flags  are  initialized  to  zero. 

4.  INTERNAL  VARIABLES: 


VARIABLE 

DEFINITION 

ISTAT 

File  pointer 

LUFILE 

Logical  unit  file  designator 

NUMTSK 

File  number  to  be  opened 

I/O  VARIABLES: 

A.  INPUT 

LOCATION 

DBGPRT 

/ADEBUG/ 

IOFILE 

/IOFLES/ 

ISON 

/ADEBUG/ 

LUPRNT 

/ADEBUG/ 

NUMTSK 

F.P. 

B.  OUTPUT 

LOCATION 

IERRF 

/AOEBUG/ 

IOFILE 

/IOFLES/ 
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6.  CALLING  ROUTINES*: 

BUBBLE  (1) 

SOLDRV  (3) 

CABC  (3) 

STATFN  (1,2, 3,4) 

DECOMP  (3) 

SUBPAT  (1) 

GEOORV  (1) 

SYMOEF  (1,2, 3,4) 

PRTSYM  (3) 

TSKXQT  (3) 

PUTSYM  (1,2, 3,4) 

WRTCHK  (1,2, 3, 4) 

RWFILS  (1,2, 3,4) 

7.  CALLED  ROUTINES: 

ASSIGN 

ERROR 

STATOT 

CLSFIL 

STATIN 

WLKBCK 

♦1-INPUT 

2- GTD 

3- MOM 

4- OUTPUT 


OPNFIL 


(GTD,  INPUT,  MOM,  OUTPUT) 
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NAME:  PAGPLT 


(MOM,  OUTPUT) 


PURPOSE:  Plot  a  column  from  the  electric  field  plot  matrix. 

METHOD:  Plot  all  x,  y  points  in  a  plot  frame  specified  by  ITYPE. 
INTERNAL  VARIABLES: 

VARIABLE  DEFINITION 

DCHR  Character  width  in  current  scale  on  the  x 

axis 

DCINV  Interval  of  each  character  on  the  x  axis 

DLINV  Interval  of  each  character  on  the  y  axis 

DLYN  Character  height  in  current  scale  on  the  y 

axis 

DX  Distance  between  scaling  marks  on  the  x 

axis 

DY  Distance  between  the  scale  marks  on  the  y 

axis 

IS  Variable  for  checking  the  sign 

ISBLNK  A  blank 

ISDASH  A  dash 

ISDOT  A  dot 

ISPLUS  A  plus 

ISSTAR  A  star 

ISYM  An  array  for  building  a  plot  line 

ITYPE  Plot  type  LINLIN,  LINLOG,  LOGLIN,  and 

LOGLOG 

IY  Flag  for  printing  a  scale  value 

LASTI  Check  for  the  last  line 

LINE  Line  counter 
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PREVIOUS  PAGE 
*S  BLANK 
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LPRPGE 

N 

NCHLIN 

NEXTI 

NI 

NMOO 

NP 

NXINT 
NXVAL 
NY  I  NT 
NVV 

NYVAL 

X 

XMAX 

XMAXP 

XMIN 

XMINP 

XP 

XVAL 

Y 

YMAX 

XMAXP 


Maximum  number  of  lines  to  be  printed  per 
page 

Input  number  of  points 

Number  of  characters  on  a  line 

Next  scanning  point  from  which  to  look  for 
points  to  print  on  the  current  line 

Number  of  scale  marks  plus  one 

The  interval  size  on  the  y  axis 

Number  of  points  to  be  plotted 

Interval  size  on  the  x  axis 

Number  of  scale  marks  on  the  x  axis 

Interval  size  on  the  y  axis 

Value  of  the  scale  to  be  printed  on  the  y 
axis 

Number  of  scale  marks  on  the  y  axis 

Temporary  location  for  sorting  the  x  array 

Maximum  value  in  the  x  array 

The  rescaled  maximum  value 

Minimum  value  in  the  x  array 

The  rescaled  minimum  value 

Input  x  array 

Array  containing  the  scale  values  for  the  x 
axis 

Temporary  location  for  sorting  the  y  array 
Maximum  value  in  the  y  array 
Maximum  rescaled  y  value 
Minimum  value  in  the  y  array 


YMIN 
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YMINP  Minimum  rescaled  y  value 

YP  Input  y  array 

YVAL  Array  containing  the  scale  values  for  the  y 

axis 

I/O  VARIABLES: 

A.  INPUT  LOCATION 

I TYPE  F.P. 

LUPRNT  /ADEBUG/ 

N  F.P. 

XP  F.P. 

YP  F.P. 

B.  OUTPUT: 

NONE 

CALLING  ROUTINE: 

FLDOUT 

CALLED  ROUTINES: 

ASSIGN 

SCALE2 

SCALE3 

STATIN 

STATOT 

WLKBCK 
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PURPOSE:  Subroutine  to  parse  the  command  text  and  generate  an  argu¬ 
ment  list  to  be  used  for  execution. 

METHOD:  There  are  two  types  of  input  that  PARSE  can  handle,  tasks 
and  expressions.  A  task  contains  a  keyword  that  points  to  a  task  in 
the  task  format  table.  This  table  is  used  to  tell  PARSE  what  argu¬ 
ments  need  to  be  put  in  the  argument  list.  The  expression  is  put 
directly  into  the  argument  list.  If,  after  parsing,  there  is  any 
leftover  information,  a  fatal  error  is  generated. 

A.  TASKS 

PARSE  scans  the  NCODE  array  for  the  first  keyword  that  has  a 
nonzero  entry  In  the  KWFMTP  column  of  the  keyword  table.  The 
following  example  illustrates  how  it  works: 

B  =  BAND (A),  BNDW  =  10 

The  keyword  BAND  is  the  second  entry  in  the  following  table. 


TABLE  1. 

KEYWORD  TABLE 

NKEYW 

KWNAME 

KWFMTP 

KWARG 

1 

107 

1 

0 

2 

73 

6 

-2 

3 

213 

0 

-3 

4 

109 

15 

0 

5 

110 

0 

0 

The  KWFMTP  column  has  a  pointer  to  the  following  table. 


PARSE 


(INPUT) 


TABLE  2. 

,  TASK  FORMAT  TABLE 

NTFMTP 

NTSFMT 

DESCRIPTION  OF  TABLE  ENTRY 

1 

4 

Number  of  entries  in  this  table 
for  BACSUB. 

2 

2 

Task  number  for  BACSUB. 

3 

-2 

Defined  symbol. 

4 

-1 

Symbol. 

5 

-2 

Defined  symbol. 

6 

4 

Number  of  entries  in  this  table 
for  BANDIT. 

7 

3 

Task  number  for  BANDIT. 

8 

-1 

Symbol . 

9 

-2 

Defined  symbol. 

10 

41 

Keyword  number  for  BNDW. 

11 

0 

12 

0 

Now  PARSE  knows  what  to  look  for  in  the  scan  tables  to  build  an 
argument  list.  The  argument  list  is  built  by  stepping  through 
the  NTSFMT  table  and  doing  the  following: 

(1) 

Put  the  task  number  In  the  argument  list  (NARGTB)  and  the 
argument  list  pointer  (NPARGL)  In  the  task  table  (NTSKTB) . 
Diagram  1  should  help  illustrate  this. 

NPTASK 

NTSKTB  NPARGL  NARGTB 

4 

11 

- 11  3 

5 

0 

12  -999999 

Diagram  1.  Task  Table  and  Argument  List 
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(2)  The  negative  entries  found  after  the  task  number  in  the 
NTSFMT  table  are  argument  types  which  will  be  sent  to 
FNDARG.  This  routine  will  scan  the  scan  table  for  the 
first  argument  that  has  not  been  used  and  will  put  the 
needed  information  in  the  current  location  of  the  argument 
list.  If  the  argument  Is  not  the  right  type,  an  error 
will  be  generated.  In  the  example  command, 

B  =  BAND (A),  BNDW  =  10 

if  A  is  defined  as  the  first  location  in  the  symbol  table 
prior  to  this  command,  B  would  be  put  in  the  second  loca¬ 
tion  of  the  symbol  table  (NDATBL).  The  indices  from  the 
symbol  table  would  be  put  in  the  argument  list  as  shown 


below: 

NPTASK 

NTSKTB 

NPARGL 

NARGTB 

4 

11  - 

- ►  11 

3 

5 

0 

12 

2«-B 

13 

UA 

14 

-99999 

Diagram  2.  Task  Table  and  Argument  List 


(3)  The  positive  entries  found  after  the  task  number  in  the  NTSFMT 
table  are  keywords.  If  the  keyword  is  less  than  256,  PARSE 
scans  for  this  keyword.  If  it  is  not  found,  a  N0PC0D  is  left, 
or  else  the  KWARG  column  in  the  keyword  table  is  referenced  for 
the  argument  type  needed  for  this  keyword.  This  argument  type 
is  sent  to  FNDARG  and  will  yield  the  following  for  the  sample 


command: 

NPTASK 

NTSKTB 

NPARGL 

NARGTB 

4 

11  - 

- —  11 

3 

5 

0 

12 

2 

13 

1 

14 

10+BNDW 

15 

-99999 

Diagram  3.  Task  Table  and  Argument  List 


If  the  keyword  is  greater  than  256,  it  is  a  multiple 
choice  keyword.  This  means  that  there  may  be  two  or  three 
keywords  packed  in  the  first  24  bits  of  a  word  using 
radix  256.  These  keywords  are  unpacked  into  an  array. 
Then  PARSE  searches  for  each  keyword  until  one  is  found. 
If  not,  a  NOPCOD  is  left.  The  following  example  will  show 
this: 


DEBUG  ON 


NPTASK 

NTSKTB 

NPARGL 

NARGTB 

4 

11 

13 

1 

5 

15 

14 

10 

15 

8 

DEBUG  TASK 

NUMBER 

16 

64«-0N 

17 

-99999 

Diagram  4.  Task 

Table  and  Argument  List 

The  keyword  number  will  be  put  in  the  argument  list. 

(4) 

A  list  of  arguments  must  be  the  last  set  of  arguments  in  a 

command  text  because 

anything  other  than  the  end 

of  the 

statement  will  be  an 

error.  The  following  illustrates  a 

list  of  arguments: 

DEBUG  ON, 

BACSUB,  LUD 

NPTASK 

NTSKTB 

NPARGL 

NARGTB 

4 

11 

14 

10 

5 

15  — 

- ►  15 

8 

6 

0 

16 

64 

17 

2 

18 

9 

19 

-9999 

Diagram  5.  Task 

Table  and  Argument  List 
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B.  DIRECT  MANIPULATION 


In  the  direct  manipulation  process,  all  symbols  are  put  on  the 
symbol  table  and  the  rest  of  the  arguments  are  put  on  the 
literal  table.  The  following  example  will  illustrate  this: 

FRQ  =  300. 


NPTASK 

NPSKTB 

NPARGL 

NARGTB 

4 

11 

18 

9 

5 

15 

-  19 

44 

6 

19 

20 

-1 

21 

-2 

22 

-3 

Diagram  6.  Task  Table  and  Argument  List 

All 

the  arguments  were  put  in  the  literal  table. 

INTERNAL  VARIABLES: 

VARIABLE 

DEFINITION 

INDEX 

Index  to  literal 

or  symbol  table 

IPSAR6 

Internal  variable 

for  NPARGL 

IPSAR1 

IPSARG  +  1 

KWARGT 

Passes  argument  type  to  FNDARG 

KWDNM 

Keyword  number 

KWNUM 

Index  to  a  keyword  in  multiple 
array  (KWDM) 

keyword 

MLTKWD 

First  temporary 
multiple  keyword 

location  to  unpack  a 

NCDNTB 

NCODE  (NTAB) 

NKEYW 

Index  for  keyword 

table 

NM 

Index  to  unpack  multiple  keywords 
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PARSE 


(INPUT) 


NMKWOS 

Index  to  a  keyword  In  the  KWDM  array 

NMLTKW 

Second  temporary  location  to  unpack  a 
multiple  keyword 

NRSTRT 

RESTRT  task  number 

NSTEP 

Index  to  step  through  the  task  format  table 

NTFMTP 

Task  pointer  to  the  task  format  table 

NTFP 

Used  to  point  at  task  number  and  the  first 
argument  type 

NTFTLM 

Points  to  the  last  argument  type  in  the 
task  format  table 

I/O  VARIABLES: 

A.  INPUT 

LOCATION 

ISOFF 

/ADEBUG/ 

ISON 

/ADEBUG/ 

KWARG 

/PARTAB/ 

KWDM 

/PARTAB/ 

KWFMTP 

/PARTAB/ 

KWLMT 

/PARTAB/ 

MKMX 

/PARTAB/ 

NARGMX 

/PARTAB/ 

NCOOE 

/SCNPAR/ 

NDTASK 

/SCNPAR/ 

NOPCOO 

/ADEBUG/ 

NPARGL 

/PARTAB/ 

NPDATA 

/PARTAB/ 

NPEARG 

/INPERR/ 
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NPEIFO 


NOESCN 

NPETSK 

NPLITN 

NPLOOP 

NPTASK 

NTALPH 

NTASK 

NTDM 

NTEND 

NTFLPT 

HUNT 

NTKEYW 

NTSFMT 

NTSKMX 

NTSYMB 

NVAL 

OUTPUT 

IPSDAT 

IPSLIT 

IPSLOO 

IPSTSK 

MATCH 

NARGTB 


/INPERR/ 

/INPERR/ 

/INPERR/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/ADEBUG/ 

/SCNPAR/ 

/PARTAB/ 

/ADEBUG/ 

/ADEBUG/ 

/ADEBUG/ 

/ADEBUG/ 

/PARTAB/ 

/PARTAB/ 

/ADEBUG/ 

/SCNPAR/ 

LOCATION 

/SCNPAR/ 

/SCNPAR/ 

/SCNPAR/ 

/SCNPAR/ 

/SCNPAR/ 

/PARTAB/ 

/SCNPAR/ 


NCODE 


PARSE 


(INPUT) 


NFINCD 

/SCNPAR/ 

NOHTCH 

/SCNPAR/ 

NPARGL 

/PARTAB/ 

NPOATA 

/PARTAB/ 

NPLITN 

/PARTAB/ 

NPLOOP 

/PARTAB/ 

NPRSER 

/SCNPAR/ 

NPTASK 

/PARTAB/ 

NRESTF 

/SCNPAR/ 

NTAB 

/SCNPAR/ 

NTSKTB 

/PARTAB/ 

NUMWRD 

/ADEBUG/ 

6.  CALLING  ROUTINE: 
INPDRV 

7.  CALLED  ROUTINES: 
ASSIGN 

FABL02 

FNDARG 

INC  (Intrinsic) 

LITSCH 

POSTPR 

PREPAR 

STATIN 

STATOT 

SYMLIT 

WLKBCK 
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1.  NAME:  PATCH 


(INPUT) 


PURPOSE:  PATCH  stores  the  geometry  data  of  a  surface  patch  in  the 
segment  table. 

METHOD:  This  subroutine  distinguishes  whether  the  user  has  speci¬ 
fied  that  a  patch  is  -  to  be  placed  at  a  certain  point  or  all  the 
patch  geometry  data  have  been  specified.  If  a  point  location  is 
given,  the  appropriate  data  point  is  retrieved  and  the  patch  is 
located  at  that  position.  Then  all  the  patch  geometry  data  are 
stored  In  the  segment  table.  In  order  to  distinguish  patch  data 
from  wire  data,  the  patch  area  is  stored  as  a  negative  number.  The 
location  of  the  patch  data  in  the  segment  table  is: 


SEGTBL  (1,1)  -  segment  table  location  and  patch  tag  number 
SEGTBL  (1,2)  -  x  coordinate  of  patch  center 

SEGTBL  (1,3)  -  y  coordinate  of  patch  center 

SEGTBL  (1,4)  -  z  coordinate  of  patch  center 

SEGTBL  (1,5)  -  x  component  of  patch  normal  vector 

SEGTBL  (1,6)  -  y  component  of  patch  normal  vector 

SEGTBL  (1,7)  -  z  component  of  patch  normal  vector 

SEGTBL  (1,8)  -  patch  area 
INTERNAL  VARIABLES: 


VARIABLE 


DEFINITION 


Patch  surface  area 


ATTACH 


Set  .FALSE,  to  preclude  translation  of  unit 
vector 


Cos  (PHI) 
Cos  (THETA) 


OGTORD 


Degrees  to  radians  conversion  factor 


Index  to  a  coordinate  system  in  which  a 
given  operation  is  desired 


PREVIOUS  PAGE 
IS  BLANK 


|\V 

-V ■ 

A  A  A 

1  «V  -  , 

*  i  *  .  •  ,  ’  , 


ICSSAV 


Saves  the  ICS  Index 


IPT 

IS 

ITAG 

NOGOFG 

NORM 

NTALPH 

NTINT 

NU 

PHI 

SCALE 

SP 

ST 

THETA 

XCPA,  YCPA,  ZCPA 
XNPA,  YNPA,  ZNPA 

XP,  YP,  ZP 
XI2,  Y12,  Z12 
X13,  Y13,  Z13 
X2,  Y2,  Z2 


Point  number  where  the  patch  Is  to  be 
attached 

Input  segment  number 
Tag  number 
No  go  flag 

Set  .TRUE,  when  patch  normal  has  been 
calculated 

An  Identifier  of  an  alpha  field  or 

character 

An  Identifier  of  an  Integer  field 

Location  in  the  NVAL  array 

4  in  spherical  coordinate  system 

A  factor  to  change  the  scale  of  all 
dimensions.  It  Is  used  here  to  preserve 
values  of  unit  normal  vectors  when  placed 
in  the  SEGTBL  array. 

Sin  (PHI) 

Sin  (THETA) 

0  in  spherical  coordinate  system 

X,Y,  and  Z  coordinates  of  the  patch  center 

X,Y,  and  Z  coordinates  of  the  patch  unit 
normal  vector 

Coordinates  of  a  specified  point 
Distance  between  points  1  and  2 
Distance  between  points  1  and  3 
Dummy  variables  In  call  to  GETPNT 


W.cv 


I/O  VARIABLES: 


CALLING  ROUTINE: 
WYRDRV 

CALLED  ROUTINES: 

ASSIGN 

COOROS 

GETPNT 

PUTSEG 

ROTATE 

STATIN 

STATOT 

WLKBCK 


PATCH 


(INPUT) 


8  ** 

INPUT 

LOCATION 

i 

DGTORD 

/GEOOAT/ 

1 

ICSSAV 

F.P. 

i 

ISOFF 

/ADEBUG/ 

n 

I 

ISON 

/ADEBUG/ 

I 

LUPRNT 

/ADEBUG/ 

I 

NCODE 

/SCNPAR/ 

1 

NTALPH 

/ADEBUG/ 

NTINT 

/AOEBUG/ 

1 

NVAL 

/SCNPAR/ 

SCALE 

/SEGMNT/ 

VAL 

/SCNPAR/ 

1  B* 

OUTPUT 

LOCATION 

i 

NOGOFG 

/AOEBUG/ 

i 

SEGTBL 

/SEGMNT/ 

READ 

CENTER  POINT 
DATA 


I 


PURPOSE:  This  function  computes  the  p*  function  for  the  cylinder's 
acoustically  soft  diffraction  coefficient. 

METHOO:  The  p*  function  Is  defined  as  (see  references  A  and  B): 


p*<E>  *  37K  +  ®j'/4 


where 


t  v(  t  1  “jxT 

V«>  '  —jT~  I  e  dT  • 


and  V(t)  and  w?(t)  are  Fock  type  Airy  functions, 
computed  as  follows: 


The  p*  function  is 


1)  for  x  <  -3 


P*<E>  ■  *  5  '^Er  (J  +  1  ?) 


,jn/A 


2)  for  -3  <  x  <  2 


P*(x)  -  P*(*i)  +  (,  -k. )  <P#<*i+i)-P*<*i>> 


where  the  p*(xj)  are  tabulated  values  (see  references  A  and  B)  and 
x1+l"x1*°*l  with  Xi  <  x  <  x1+i. 


3)  For  x  >  2 


P*U> 


.j  ii 

•  ,,  5  xq  e  6 

eJ*/6  _  e  n 


5711  ’  ^ 


where  A' (t)  Is  the  derivative  of  the  Miller  type  Airy  function. 


v.y 


v  -  •  \*  1  n .1?  & 


»: 


INTERNAL  VARIABLES: 
VARIABLES 


I/O  VARIABLES: 
A.  INPUT 


B.  OUTPUT 


CALLING  ROUTINES: 


RPLSCL 

SCLRPL 

SCTCYL 

CALLED  ROUTINE: 


DEFINITION 

-0 . 5*CEXP(J*P I /6)/SQRT (PI) 

Derivative  of  Miller  type  Airy  function  at 

Q 

0. 5/SQRT (PI ) 

CEXP(-5*PI/6) 

Smallest  Integer  closest  to  10*X 
P  function 


Imaginary  part  of  tabulated  P  function 
Real  part  of  tabulated  P  function 
Zeroes  of  Miller  type  Airy  function 
Argument  of  P  function 
Real  number  representation  of  I 


LOCATION 

/PIS/ 


LOCATION 

FUNCTION 


PFUN 


(STD) 


REFERENCES: 

A.  P.  H.  Pathak,  "An  Asymptotic  Analysis  of  the  Scattering  of 
Plane  Waves  by  a  Smooth  Convex  Cylinder,"  paper  to  appear  in 
J.  Radio  Science.  (Also  The  Ohio  State  University  Electro- 
Science  Laboratory  Technical  Report  784583-3,  March  1978). 

B.  N.  A.  Logan,  "General  Research  In  Diffraction  Theory,"  Vol.  I, 
LMSD-288087 ;  and  Vol.  II,  LMSD-288088,  Missiles  and  Space  Divi¬ 
sion,  Lockheed  Aircraft  Corp.,  1959. 
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NAME:  PLAINT 


% 

M 


*1 


f 

i,s 


fi 

3 


sfU 


(GTD) 


PURPOSE:  To  determine  If  a  ray  traveling  from  a  given  source  loca¬ 
tion  In  a  given  direction  will  Intersect  a  given  plate  (or  set  of 

plates). 

METHOD:  This  subroutine  Is  used  for  a  number  of  functions: 

(a)  To  determine  If  a  source  ray  reflection  from  plate  MP  occurs. 
If  a  ray  traveling  from  the  source  image  location  In  the 
reflected  ray  direction  passes  through  plate  MP,  the  reflection 
will  occur  (see  figure  1).  The  routine  only  checks  plate  MP 
(set  MH=-MP).  Note  that  the  hit  point  (which  Is  returned  as  a 
formal  parameter)  Is  the  reflection  point,  and  Is  used  in  the 
shadowing  tests. 

(b)  To  test  to  see  If  a  ray  Is  shadowed  between  scatter  points  (or 
between  the  source  and  a  scatter  point).  The  routine  checks 
all  plates  (set  MH=0)  and  records  the  distance  from  the  first 
scatter  (or  source)  position  to  the  nearest  hit  (if  the  ray 
hits  any  of  the  plates).  If  the  distance  to  the  nearest  hit  Is 
shorter  than  the  distance  between  scatter  points  (or  between 
the  source  and  scatter  point),  the  ray  is  shadowed,  and  the  GTD 
term  being  computed  is  set  to  zero.  Otherwise,  the  ray  Is  not 
disturbed  and  computations  are  carried  out.  Note  that  If  the 
first  scatter  point  is  a  reflection  or  diffraction  point  on  a 
plate,  all  plates  except  that  plate  are  checked  (set  MH=MP). 

(c)  To  determine  if  a  ray  after  the  final  scatter  point  (or  source 
ray)  Is  shadowed.  If  the  final  scatter  point  Is  a  cylinder  (or 
If  the  source  field  Is  being  computed)  all  plates  are  checked. 
If  the  final  scatter  point  Is  on  the  plate  MP,  all  plates 
except  plate  MP  are  checked.  For  far-field  calculations  If  the 
ray  hits  a  plate  (LHIT=TRUE),  the  ray  Is  shadowed  and  the  GTD 
term  Is  set  to  zero.  For  near-field  calculations  If  a  plate  Is 
hit  (LHIT=TRUE) ,  the  routine  calling  PLAINT  compares  the 
distance  between  the  final  scatter  point  and  the  observation 
point  to  the  distance  between  the  scatter  point  and  the  hit 
point,  for  the  ray  may  reach  the  observation  point  first  and 
therefore  not  be  shadowed.  If  LHIT=FALSE,  the  ray  Is  not 
shadowed  and  propagates  undisturbed  (see  figure  2). 

(d)  To  determine  if  any  one  plate  totally  shadows  plate  MP  from  the 
source  (referred  to  as  the  "total  shadowing  algorithm").  The 
routine  checks  all  plates  except  plate  MP  (set  MH  *  MP)  and 
remembers  plates  which  shadow  the  ray  every  time  the  routine  Is 
called  (see  section  f  of  subroutine  GEOM).  The  total  shadowing 
algorithm  Is  activated  when  LSTS  Is  set  TRUE. 


k^lli^UKlur  4J*  i  * ' »  *  *  '  *  .  v  j  m  *  ,  *  .  <  »  •  _  •  ,  «  _  ♦  •  •"*  ,*  »  j*  <| 


PLAINT 


(GTD) 


SOURCE 

LOCATION 


a.  Reflection  occurs  (ray  from  image  source  hits  plate  MP) 


SOURCE 

LOCATION 


r'' 

IMAGE 

LOCATION 

b.  Reflection  does  not  occur  (ray  from  image  source  does  not  hit  plate  MP) 


Figure  1.  Geometry  for  Determining  if  Reflection  from  a 
Given  Plate  Occurs 
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PLAINT  (GTD) 


The  hit  algorithm  first  tests  to  see  if  a  ray  in  the  scatter  direc¬ 
tion  will  Intersect  the  plane  which  the  plate  lies  in  by  comparing 
the  signs  of  the  dot  product  of  the  scatter  direction  and  the  plate 
normal  and  the  dot  product  of  the  vector  from  the  source  to  a  corner 
of  the  plate  and  the  plate  normal.  If  a  hit  is  possible,  the  inter¬ 
section  point  on  the  plate  plane  is  determined.  Whether  the  inter¬ 
section  point  lies  within  the  bounds  of  the  plate  is  tested  by 
summing  the  angles  formed  by  the  vectors  from  the  intersection  point 
to  the  various  corners  of  the  plate  as  shown  in  figure  3.  If  the 
sum  is  zero,  the  intersection  point  does  not  fall  within  the  bounds 
of  the  plate.  If  the  sum  i«  2tt,  the  intersection  point  does  fall 
within  the  bounds  and  the  ray  hits  the  plate.  (See  pp.  38-41, 
reference  A.) 

INTERNAL  VARIABLES: 


VARIABLE  DEFINITION 


AN 

CP 


Dot  product  of  vector  from  edge  1  of  plate 
MP  to  source  and  plate  unit  normal 

Computational  variable 


D 


X,Y,  and  Z  components  of  propagation  direc¬ 
tion  in  reference  coordinate  system 


OBI  Computational  variable 

DBT  Computational  variable 

DHIT  Distance  from  source  to  nearest  hit  point 


DHT 


Distance  from  source  to  hit  point 


DN  Dot  product  of  propagation  direction  unit 

vector  and  plate  unit  normal 

LGRND  Logical  variable  presently  set  .FALSE.  (It 

could  be  used  to  indicate  the  presence  of  a 
ground  plane  if  that  was  allowed  in  the 
geometry.) 

LHIT  Logical  variable  (set  true  if  ray  hits  at 

least  one  plate) 

LPLA  Logical  variable  set  true  if  plates  are 

present  in  geometry 


LSTD 


Set  true  if  plate  MP  totally  shadows  plate 
MH  from  the  source 


PLAINT  (GTD) 


Set  true  if  total  shadowing  routine  is 
being  used 

00  loop  variable 

Array  which  defines  the  number  of  edges  on 
each  plate 

Number  of  edges  on  plate  MP 

Shows  which  plates  are  to  be  checked: 

MH=-MP  only  plate  MP  is  checked 

MH=0  all  plates  are  checked 

MH=MP  all  plates  except  MP  are  checked 

Indicator  for  second  corner  on  an  edge 

Index  variable  (number  of  plate  being 
checked) 

Index  variable 

DO  loop  variable 

00  loop  variable 

n 

Computational  variable 

Array  which  includes  the  unit  normal  vector 
for  each  plate 

Array  which  includes  corner  locations  for 
all  plates 

X,Y,Z  components  of  source  location  in 
reference  coordinate  system  (entering 
routine) 

X,Y,Z  components  of  hit  position  (leaving 
routine) 


X,YtZ  components  of  point  where  ray  inter¬ 
sects  plate  plane 


SCLRPL 

SCTCYL 

CALLED  ROUTINE: 
BTAN2 


REFERENCE: 


R.  J.  Marhefka,  "Analysis  of  Aircraft  Wing-Mounted  Antenna 
Patterns,"  Report  2902-25,  June  1976,  The  Ohio  State  University 
ElectroSclence  Laboratory,  Department  of  Electrical  Engi¬ 
neering;  prepared  under  Grant  No.  NGL  36-008-138  for  National 
Aeronautics  and  Space  Administration. 
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PURPOSE:  To  store  raw  GTD  plate  geometry  data  Into  the  segment 
table. 

METHOD:  HYRDRV  calls  PLATE  whenever  a  PL  command  Is  encountered  In 
the  geometry  data.  PLATE  Interprets  the  command  Items  as  scanned  by 
SCAN  and  extracts  values  for  plate  number  and  coordinates.  This 
Information  Is  stored  In  one  or  more  sequential  SEGTBL  entries. 

There  are  two  possible  formats  for  the  PL  command:  (1)  coordinates 
specified  by  PNTTBL  point  numbers;  or  (2)  coordinates  specified  as 
x,y,z  ordered  triples.  The  latter  format  Is  assumed  If  there  are 
more  than  eight  fields  on  a  PL  command.  The  first  format  Is 


PL  nn  pi  p2  p3  [p4] 


user-assigned  plate  number 


8  NVAL/VAL  Index 


pl,p2(...  -  point  numbers  defining  corners  of  the  plate 
The  second  format  Is: 


PL  nn  xl  yl  zl  x2  y2  z2  x3  y3  z3  [...] 


nn  -  user-assigned  plate  numbers 

xl.yl(zl  ■  coordinates  of  corner  one 
x2,y2,z2  ■  coordinates  of  comer  two 
x3(y3(z3  -  coordinates  of  corner  three 


(...) 


coordinates  of  comers  four-six 


The  two  formats  may  not  be  mixed  on  the  same  PL  command. 
PLATE  places  the  following  values  In  SEGTBL: 


First  SEGTBL  entry 

1  ITAG/ISG 

2  LINK  # 


Second  SEGTBL  entry 
ITAG/ISG 
LINK  # 


’**,  r .  **.  ./ 
*/v  v  V/.*.  w  \  •*  * 


1  *  ' 
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3 

xl 

x4 

4 

yi 

y4 

5 

zl 

z4 

6 

x2 

xS 

7 

y2 

y5 

8 

z2 

z5 

9 

x3 

x6 

10 

y3 

y6 

11 

z3 

z6 

Plates 

Should 

having 

plates 

only 

with 

three  corners  require 
more  than  six  corners 

just  the  first 
be  Implemented 

entry. 
In  the 

future,  more  SEGTBL  entries  will  be  required.  The  routine  can 
accommodate  plates  with  more  corners:  (1)  by  changing  the  dimen¬ 
sions  of  x,  y,  and  z;  and  (2)  by  changing  the  value  of  MXPLAR 
(maximum  number  of  PL  command  arguments)  in  BLKDAT. 

The  sequential  SEGTBL  entries  are  linked  together  by  LINK  #.  LINK  f 
Is  a  packed  word  containing  (100  times  the  user  plate  number  plus 
the  number  of  corners)  In  the  left-half  word  and  the  location  of  the 
next  SEGTBL  entry  for  this  plate  In  the  right-half  word.  To 
Identify  the  first  of  a  series  of  entries,  the  number  of  corners  Is 
set  to  zero  In  the  LINK  #  for  all  but  the  first  entry. 

4.  INTERNAL  VARIABLES: 

VARIABLE  DEFINITION 


CLNK 

D 

ERRFLG 

I  ERF 

IPT 

ISG 

ITAG 

ITPARG 


Equivalent  to  NCLNK 
Dummy  argument 

Internal  flag  to  Indicate  command  error 
(Integer) 

Flat  plate  error  flag 
PNTTBL  point  number  of  plate  corner 
Plate  segment  number  (assigned  by  SEGTBL) 
Plate  tag  number 

Array  of  variable  types  (real.  Integer)  for 
argument  field 


V*'.  v  j*  *  .»  ,  ’ 
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LNKNUM 

LNKSV 

HUM 

NC 

NCLNK 

NCORN 

NSGTBL 

NUMPL 

X,Y,Z 

XX.YY.ZZ 

S.  I/O  VARIABLES: 
A.  INPUT 
IPLTAG 
IP217 
ISOFF 
ISON 
LUPRNT 
MXPLAR 
NARGS 
NCODE 
NTFLPT 
NTINT 


PLATE  (INPUT) 

Location  of  next  SEGTBL  entry  for  this 
plate 

Location  of  first  SEGTBL  entry  for  this 
plate 

Number  of  coordinates  stored  In  a  SEGTBL 
entry 

Number  of  corners  on  plate 

Link  word  containing  plate  number,  number 
of  corners,  and  LNKNUM 

Number  of  corners  used  In  SEGTBL  entry 

Number  of  SEGTBL  entries  for  this  plate 

User-assigned  plate  number 

Arrays  of  corner  coordinates 

Arrays  of  corner  coordinates  placed  in  a 
SEGTBL  entry 

LOCATION 

/GTDOAT/ 

/GEODAT/ 

/ADEBIIG/ 

/ADEBUG/ 

/ADEBUG/ 

/GTDOAT/ 

/SCNPAR/ 

/SCNPAR/ 

/ADEBUG/ 

/ADEBUG/ 
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\  V.'  % 


PLATE 


(INPUT) 


6. 


7. 


NUMSEG 

/SEGMNT/ 

NVAL 

/SCNPAR/ 

SCALE 

/SEGMNT/ 

VAL 

/SCNPAR/ 

B.  OUTPUT 

LOCATION 

NOGOFG 

/SCNPAR/ 

CALLING  ROUTINE: 

WYRDRV 

CALLED  ROUTINES: 

ASSIGN 

FLTPLT 

GETPNT 

PUTSEG 

STATIN 

STATOT 

WLKBCK 
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INITIALIZE  INTERNAL 
VARIABLES 


DETERMINE  NUMBER 
OF  ARGUMENTS  ON  PL 

CONMNO 


■^FWXIMUO 
NUMBER  OF 
ARGUMENTS 
n.  EXCEEDED^ 


POINT  NUMBER 
FORMAT 

V  ?  / 


LOOP  OVER  REMAINING 
ARGUMENTS  ON 
COMMAND 


VALID 

ARGUMENT 

? 


EXTRACT  ARGUMENT 
VALUE 


COMPUTE  GEOMETRY 
VARIABLES  OF  THIS 
ARGUMENT 


SET  ERROR  FLAG  IF 
GEOMETRY  VARIABLES 
NOT  VALID 


“/ronN 

_ ARGUMENTS 

C  TO  BE 
\jNTERPRETEO 


SET  ERROR  FLAG  ON 


Page  1  of  2 


_  ARE  - 

''ARGUMENTS  FULLX^  NO 
^ORDERED  TRIPLES/-- 


cct  rooAo  ci  ir 

it!  ERROR  HWi 

LOOP  OVER  ORDERED 
TRIPLES  ON  CARD 


/  ALL  \ 
/COORDINATES  NO 
^FLOATING  POINT  P - 


SET  ERROR  FLAG  ON 


SCALE  COORDINATES 
OF  THIS  POINT 


38 

/'any 

/  ORDERED  ^ 
sTRIPLES  REMAININ 
\  T  /^ 


RESET  NAR6S  TO 
NUWER 
OF  POINTS 


1.  NAME:  PLIST  (INPUT) 

2.  PURPOSE:  Parse  a  list  of  Integers,  symbols,  or  keywords 


b 

C\ 


3. 


4. 


5. 


METHOO:  The  list  of  arguments  must  be  at  the  end  of  the  command 
text.  If  not,  an  error  will  be  generated.  The  routines  will  parse 
a  list  of  Integers,  symbols,  or  keywords  into  the  parse  table  argu¬ 
ment  list. 


INTERNAL  VARIABLES: 

VARIABLE 

INC 

INDEX 

ITEMCO 

KWNDEX 

KWTKNM 

NPARAM 

I/O  VARIABLES: 

A.  INPUT 
IMINUS 
ISOFF 
KWFMTP 
KWILP 
LSTDAT 
LSTINT 
NARGMX 
NCOOE 
NPARAM 
NPARGL 


DEFINITION 

Intrinsic  function 

Location  In  NVAL  array 

Used  to  define  the  type  of  argument. 

Keyword  Index. 

Keyword  task  number. 

Type  of  list  to  be  printed 

LOCATION 

/SCNPAR/ 

/ADEBUG/ 

/PARTAB/ 

/PARTAB/ 

/SCNPAR/ 

/SCNPAR/ 

/PARTAB/ 

/SCNPAR/ 

F.P. 

/PARTAB/ 
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PLIST 


(INPUT) 


NPCARG 

/INPERR/ 

NPELST 

/INPERR/ 

NPENOI 

/INPERR/ 

NPERGE 

/INPERR/ 

NTAB 

/SCNPAR/ 

NTALPH 

/AOEBUG/ 

NTEND 

/ADEBUG/ 

NTERR 

/AOEBUG/ 

NT  I  NT 

/AOEBUG/ 

NTKEYW 

/AOEBUG/ 

NTSFMT 

/PARTAB/ 

NTSYMB 

/AOEBUG/ 

NVAL 

/SCNPAR/ 

NVALMX 

/SCNPAR/ 

B.  OUTPUT 

LOCATION 

NARGTB 

/PARTAB/ 

NCODE 

/SCNPAR/ 

NPARGL 

/PARTAB/ 

NPRSER 

/SCNPAR/ 

NTAB 

/SCNPAR/ 

NUMWRD 

/ADEBUG/ 

NVAL 

/SCNPAR/ 

CALLING  ROUTINE: 

FNDARG 

t 


INITIALIZATION 


^  END 
OF 

COMMAND 


INTEGERS 


TASK  NAMES 


INCREMENT  TAB 
AND  SAVE  SIGN 


ERROR  NOT  THE 
SAME  TYPE 


ERROR  NO 
ARGUMENTS 


ERROR  NONE  OF  THE 
ABOVE 


PRINT  OEBUG 
MESSAGE,  CHECK 
TAB,  AND  CHECK 
SCAN  TABLE 


(-)  INTEGER 


50  /  ^ 
NO  >".T.YPE 


SAME  AS 
SCAN  ENTRY 


END 

OF 

COMMAND 


GET  THE  INDEX 
OF  THE  SYMBOL 
SYMSCH 


»  SET  UP  LOOP 

FOR  ALPHAS 

- * 

6°/\ 

\  YES  GET  KEYWORD 

<  KEYWORD  ~>  »  NUMBER  OR  TASK 

\  OF  THE  KEYWORD 

20 

N0 

70  ,, 

SET  UP  LOOP 

FOR  INTEGERS 

- ► 

MULTIPLY  sign 
times  scan 

ENTRY  AND  PUT  * 

IN  ANY  LIST 

30 

SET  UP  LOOP  FOR 
KEYWOROS  OR  TASKS 

80 

\  YES 

'VVVV- •'< 


PURPOSE:  Identify  the  plate  (if  any)  to  which  a  point  Is  adjacent. 

METHOD:  For  each  plate  In  the  geometry  data  set.  It  Is  determined 
(1)  whether  or  not  the  point  lies  In  the  plane  of  the  plate  and  (2) 
whether  or  not  the  point  lies  within  the  boundaries  of  the  plate. 
If  the  point  satisfies  both  conditions  the  plate  number  Is  returned. 
Otherwise  zero  Is  returned. 

To  determine  If  the  point  Is  In  the  plane  of  the  plate,  the  unit 
vector  of  the  ray  to  the  point  from  a  plate  corner  Is  compared  to 
the  unit  normal  of  the  plate  (figure  1).  If  the  dot  product  Is  zero, 
the  point  Is  In  the  plate  plane. 


XC  -  CORNER  COORDINATE 
ft  -PLATE  NORMAL 
XP1  -  A  POINT  IN  PLATE  PLANE 
XP2  -  POINT  NOT  IN  PLATE  PLANE 

9i’"° 

92*"° 


Figure  I.  Determining  If  a  Point  Lies  In  the  Plane  of  the  Plate 

To  find  If  the  point  Is  within  the  boundaries  of  the  plate,  the 
angles  formed  by  the  vectors  from  the  point  to  the  various  corners 
are  summed  as  shown  In  figure  2.  If  the  sum  Is  zero,  the  point  Is 
not  on  the  plate;  If  the  sum  Is  2n,  the  point  Is  on  the  plate. 


INTERNAL  VARIABLES: 
VARIABLE 


DEFINITION 

Dot  product  of  plate  unit  normal  and  unit 
vector  of  ray  from  corner  to  point 

Dot  product  of  edge  vector  and  cross  pro¬ 
duct  of  vectors  to  point  from  adjacent 
corners 


(A)  POINT  ON  PLATE  (  0,  +  02  +  03  +  94  +  05  +  06  =  2  it  ) 


5 


(B)  POINT  NOT  ON  PLATE  (  0 ,  +  02  +  03  +  04  +  05 


Figure  2.  Geometry  Deciding  Whether  a  Point  Is 
Plate  Plane  on  the  Plate 


+  e6  =  0) 

in  the 


OBI 

Angle  at  point  subtended  by  edge 

DBT 

Sum  of  all  angles  subtended  by  edge 

EN 

Edge  unit  normal  vector 

ENM 

Magnitude  of  normal  vector 

EHX.ENY.ENZ 

A  normal  vector 

E1X.E1Y.E1Z 

Vector  direction  of  edge  one 

E2X.E2Y.E2Z 

Vector  direction  of  edge  two 

I. IP 

Index  of  geometry  block  In  SEGTBL 

IG 

Index  of  SEGTBL  entry 

IG1 

Index  of  SEGTBL  entry  when  second 
entry  Is  In  next  geometry  block 

plate 

IGBLK1 

Geometry  block  when  second  plate  entry  Is 
In  next  geometry  block 

IGLIM 

Last  SEGTBL  entry  with  GTD  geometries 

IGLIH1 

Last  GTO  SEGTBL  entry  when  second 
entry  Is  In  next  geometry  block 

plate 

IGLOW 

First  SEGTBL  entry  with  GTD  geometries 

IGLOW1 

First  GTD  SEGTBL  entry  when  second 
entry  Is  In  next  geometry  block 

plate 

IHITPL 

Plate  number  where  point  lies  (zero 
Intersection) 

If  no 

I  PLOW 

First  geometry  block  with  GTD  entries 

IPMAX 

Last  geometry  block  with  GTD  entries 

ITAG 

Geometry  element  tag  number 

ME 

Corner  number  of  first  corner  of  edge 

MM 

Corner  Index 

MME 

Corner  number  of  second  corner  of  edge 

HMM 

NCORN 

NOXSAV 

HTRY 

NUHPL 

RO 

RP 

X 

XP.YP.ZP 

XS.YS.ZS 

XT 

I/O  VARIABLES: 
A.  INPUT 
IPLTAG 
IP217 
ISGTBL 
ISOFF 
ISON 
MAXBLK 
MAXSEG 
NDXBLK 
NPATCH 
NUMPLT 


Coordinate  Index  In  SEGTBL 

Number  of  plate  corners 

Original  block  of  geometry  In  SEGTBL 

Number  of  SEGTBL  entries  for  plate 

User-assigned  plate  number 

Cross  product  of  vectors  to  point  from 
adjacent  corners 

Distance  from  corner  to  point 

Array  of  corner  coordinates 

Vector  from  corner  to  point 

Point  coordinates 

Point  coordinates 

LOCATION 

/GTDDAT/ 

/GEODAT/ 

/SEGMNT/ 

/ADEBUG/ 

/ADEBUG/ 

/SEGMNT/ 

/SEGMNT/ 

/SEGMNT/ 

/SEGMNT/ 

/GTDDAT/ 

/SEGMNT/ 


NUMSEG 


PLTSE6 


(INPUT) 


NWIRE 

/SEGMNT/ 

SEGTBL 

/SEGMNT/ 

XS 

F.P. 

YS 

F.P. 

ZERO 

/ADEBUG/ 

ZS 

F.P. 

B.  OUTPUT 

LOCATION 

IHITPL 

F.P. 

CALLING  ROUTINE: 

CNVGTD 

CALLED  ROUTINES: 

ASSIGN 

STATOT 

GETSEG 

WLKBCK 

STATIN 


737 


LOOP  OVER  GEOMETRY 
BLOCKS  WITH  PLATES 

r 

RETRIEVE 

BLOCK 

GEOMETRY 

LOOP  OVER  PLATES 
IN  THIS  BLOCK 


RECOVER  PLATE 
CORNER  COORDINATES 

~l - 


F1NO  PLATE  NORMAL 


UNIT  VECTOR 


c 


SET  HIT  INDICATOR 
TO  PLATE  NUMBER 
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PURPOSE:  To  solve  an  Nth  order  polynomial  equation. 

METHOO:  This  subroutine  solves  for  the  roots  of  an  Mth  order  poly¬ 
nomial. 


CmZM+Cm  .z*1'1*  ...c.z1  +  C  =  0. 
N  M-i  l  o 


The  roots  of  the 
method  of  Iterated 
fl clents  are  stored 

INTERNAL  VARIABLES: 

VARIABLE 


ICONJ 


ICCUNT 


I  FLAG 


ISTART 


polynomial  are  found  using  the  Newton-Raphson 
synthetic  division  (see  reference  A).  The  coef- 
such  that  Cm  *  CC(M+1),  C0  *  CC(1),  etc. 


DEFINITION 

Working  array  of  polynomial  coefficients 

A  complex  array  containing  the  polynomial 
coefficients 

Magnitude  of  largest  coefficient 

Array  containing  coefficients  of  polynomial 
left  after  the  prospective  root  has  been 

factored  out 

Array  containing  coefficients  of  polynomial 
left  after  the  prospective  root  has  been 

factored  out  twice 

Small  number  (relative  to  largest  coeffi¬ 
cient) 

Index  for  trying  the  conjugate  of  the 

previous  root  as  a  guess 

Index  on  the  number  of  times  the  Iteration 
procedure  searches  for  a  root 

Flag  used  to  Indicate  If  all  possible 

starting  values  have  been  tried 

Index  for  starting  values 


previouspage 
IS  BLANK 
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& 
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POLYRT 


(GTD) 


LIMIT 

M 

MI 

MM 

MMP1 

MN 

Q 

R 

RJ 

RJP 

RT 

SR 

START 

TEST 

XI 

XR 

I/O  VARIABLES: 
A.  INPUT 
CC 

MM 

LUPRNT 


Maximum  number  of  Iterations  used  to  search 
for  the  root 

Order  of  polynomial  being  worked  on 
Computational  variable 
Order  of  the  equation 
MM  plus  one 

Order  of  once-factored  polynomial  being 
worked  on 

Magnitude  of  polynomial  coefficients 

A  complex  array  containing  the  roots  of  the 
equation 

Remainder  left  after  prospective  root  has 
been  factored  out 

Remainder  left  after  prospective  root  has 
been  factored  out  twice 

Prospective  root  being  iterated 

Square  root  of  (C(2)*C(2)-4*C(1)*C(3)) 

Array  containing  Initial  guess  of  root 
locations 

Bound  used  to  determine  if  the  prospective 
root  has  converged 

Imaginary  part  of  CC 

Real  part  of  CC 


LOCATION 

F.P. 

F.P. 

/ADEBUG/ 


B.  OUTPUT 


LOCATION 


R  F.P. 

CALLING  ROUTINES: 

DFPTCL 

RFDFIN 

CALLED  ROUTINE: 

BABS 

REFERENCE: 

A.  A.  Ralston,  A  First  Course  In  Numerical  Analysis.  McGraw-Hill 
Book  Co.,  New  York,  1965,  pp.  371-373. 


POLYRT 


(GTD) 


PURPOSE:  Subroutine  to  print  parse  table  entries  after  Input 

processing. 


METHOD:  If  the  output  file  Is  other  than  zero,  the  parse  table, 

argument  list  table,  loop  table,  and  literal  table  entries  are 
output  to  the  file  specified. 


INTERNAL  VARIABLES: 

VARIABLE 

IDATA 

ITASK 

NCDNOX 

NDXTSK 

NMARGS 

NMLITN 

NMLOOP 

NMSYMB 

NMTASK 

NXTARG 

I/O  VARIABLES: 

A.  INPUT 
ISYMBL 
KWNAME 
LITNUM 
LUDBUG 
LUPRNT 


DEFINITION 

Temporary  location  for  Hollerith  name. 
Task  number  from  argument  list. 

Task  name  Index  to  NCODES. 

Index  of  task  number  in  argument  list. 
Pointer  to  argument  list. 

Pointer  to  literal  table. 

Pointer  to  loop  table. 

Pointer  to  symbol  table. 

Pointer  to  task  table. 

Index  of  task  entries  In  argument  list. 


LOCATION 

/SCNPAR/ 

/PARTAB/ 

/PARTAB/ 

/ADEBUG/ 

/ADEBUG/ 

/PARTAB/ 


NAMTSK 


POST IP 


(INPUT) 


NARGTB 


/PARTAB/ 


NCODES 


/PARTAB/ 


NDATBL 


/PARTAB/ 


NLOOPS 


/PARTAB/ 


NPARGL 


/PARTAB/ 


NPDATA 


/PARTAB/ 


NPLITN 


/PARTAB/ 


NPLOOP 


/PARTAB/ 


NPTASK 


/PARTAB/ 


NTALPH 


/AOEBUG/ 


NT  I  NT 


/AOEBUG/ 


NTKEYW 

NTSKTB 

NTSYMB 


/ADEBUG/ 

/PARTAB/ 

/ADEBUG/ 


B.  OUTPUT 


LOCATION 


CALLING  ROUTINES: 


INPDRV 


RESTRT 

CALLED  ROUTINES: 


ASSIGN 


CONVRT 


STATIN 

STATOT 


1 

■  1 


WLKBCK 


::>1 
,  .  ■ 
'  ?1 

-v  *.'l 


•  *\  • 
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POSTIP 


(INPUT) 


C  POSTIP  ) 


SET  UP  INTERNAL 
TABLE  POINTERS 


PRINT  HEADER, 
TASK  ENTRIES, 
AND  ARGUMENT 
ENTRIES 


PRINT  HEADER  AND 
TABLE  ENTRIES 


PRINT  HEADER 
AND  TABLE  ENTRIES 


PRINT  HEADER  AND 
LITERAL  TABLE 
ENTRIES 


130 


(  RETURN  ~") 


1. 

2. 

3. 


4. 


5. 


NAME:  POSTPR  (INPUT) 

PURPOSE:  Post-processor  for  the  PARSE  subroutine 

METHOD:  Subroutine  prints  out  the  entries  into  the  task  table, 
argument  list  table,  symbol  table,  loop  table,  and  literal  table 
made  during  the  parsing  of  the  last  command  entered. 


INTERNAL  VARIABLES: 

VARIABLE 

IDATA 

12 

13 

15 

Nil 

NI2 

NI3 

NI4 

NI5 

N1 

N2 

N3 

N4 

N5 

I/O  VARIABLES: 

A.  INPUT 
IPSARG 
IPSDAT 


DEFINITION 

Temporary  location  for  a  Hollerith  name 

Index  to  first  argument  of  command 

Index  to  first  symbol  for  current  command 

Index  to  first  literal  for  current  command 

Number  of  task  table  entries  for  command 

Number  of  argument  table  entries  for 
command 

Number  of  symbol  table  entries  for  command 
Number  of  loop  table  entries  for  command 
Number  of  literal  table  entries  for  command 
Last  entry  index  for  task  table 
Last  entry  Index  for  argument  list 
Last  entry  Index  for  symbol  table 
Last  entry  Index  for  loop  table 
Last  entry  Index  for  literal  table 


LOCATION 

/SCNPAR/ 

/SCNPAR/ 


r 
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POSTPR 


IPSLIT 

IPSLOO 

IPSTSK 

ISON 

ISYHBL 

KWNAME 

LITNUM 

LUDBUG 

NARGTB 

NCODES 

NDATBL 

NDEBUG 

N LOOPS 

NPARGL 

NPDATA 

NPLITN 

NPLOOP 

NPTASK 

NTALPH 

NTINT 

NTKEYW 

NTSKTB 

NTSYMB 


/SCNPAR/ 

/SCNPAR/ 

/SCNPAR/ 

/ADEBUG/ 

/SCNPAR/ 

/PARTAB/ 

/PARTAB/ 

/ADEBUG/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/SCNPAR/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/ADEBUG/ 

/ADEBUG/ 

/ADEBUG/ 

/PARTAB/ 

/ADEBUG/ 

LOCATION 


OUTPUT 


NAME:  PREPAR 


(INPUT) 


PURPOSE:  Print  out  scan  tables  before  command  Is  parsed. 

METHOD:  If  the  output  file  Is  nonzero,  write  out  the  scan  table 

(NCODE  and  NVAL)  for  the  current  command. 


INTERNAL  VARIABLES: 

VARIABLE 

IOATA 

NODE 

I/O  VARIABLES: 

A.  INPUT 
ISON 
ISYMBL 
KWNAME 
LUDBUG 
NAMTSK 
NCODE 
NCODES 
NDEBUG 
NTALPH 
NTEND 
NTERR 
NTINT 
NTKEYW 
NTSYMB 
NTTASK 


DEFINITION 

Temporary  location  for  a  Hollerith  name. 
Current  value  of  NCODE 


LOCATION 

/ADEBUG/ 

/SCNPAR/ 

/PARTAB/ 

/ADEBUG/ 

/PARTAB/ 

/SCNPAR/ 

/PARTAB/ 

/SCNPAR/ 

/ADEBUG/ 

/AOEBUG/ 

/ADEBUG/ 

/ADEBUG/ 

/ADEBUG/ 

/ADEBUG/ 

/ADEBUG/ 
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1.  PRESCN 


(INPUT) 


2. 

3. 

4. 


PURPOSE:  Subroutine  to  prescan  the  task  table  and  eliminate  those 
tasks  which  have  been  affected  by  a  WIPOUT  command. 

METHOO:  Before  return  to  the  main  routine,  the  task  table  Is 
scanned  for  the  presence  of  a  WIPOUT  command.  If  the  command  Is 
found,  the  arguments  of  the  command  are  retrieved  from  the  argument 
list  table  and  the  appropriate  commands  In  the  task  table  are  set  to 
ON  or  OFF  depending  on  their  previous  state. 

INTERNAL  VARIABLES: 


VARIABLE 
I CLEAR 
ICPTSK 
ILCNXT 

INTLIT 

ITASK 

ITYPE 

11 

JSTRT 

JTASK 

KTASK 

LOCARG 

LOCNXT 

LOCPN 

LOCTSK 

NMARG 

NH1 

NRSTRT 

NTSK 


DEFINITION 

Code  for  total  wipe  out  of  all  commands 
Code  for  checkpoint 

Index  to  the  next  location  in  the  task 
table 

Code  for  integer  In  the  literal  table 
Index  to  task  table 
Entry  In  the  task  table 
One 

First  task  to  be  wiped  out 

Index  to  argument  list 

Index  to  task  table  minus  one 

Index  to  argument  list 

Index  to  the  next  argument  in  the  list 

Argument  pointer  for  one  task 

Task  number  for  wipe  out 

Number  of  arguments  for  a  task 

N  minus  one 

Code  for  a  restart  from  checkpoint 
ITASK  -  1 


PRESCN 


(INPUT) 


5.  I/O  VARIABLES: 


A.  INPUT 

LOCATION 

ISON 

/ADEBUG/ 

LUPRNT 

/ADEBUG/ 

NARGTB 

/PARTAB/ 

NPTASK 

/PARTAB/ 

NTSKTB 

/PARTAB/ 

NUMWIP 

/PARTAB/ 

B.  OUTPUT 

LOCATION 

CHKPNT 

/SYSFIL/ 

IERRF 

/ADEBUG/ 

NTSKTB 

/PARTAB/ 

CALLING  ROUTINE: 

INPDRV 


7.  CALLED  ROUTINES: 
ASSIGN 
ERROR 
STATIN 
STATOT 
WLKBCK 
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1.  NAME:  PRTGTD 


(INPUT) 


2.  PURPOSE:  To  print  the  descriptions  of  all  GTD  geometry  objects: 

plates,  cylinders*  and  end  caps. 

3.  METHOD:  For  each  geometry  type  a  header  is  printed  and  the  geometry 
data  set  is  searched  for  all  entries  of  that  type.  Then  the  SEGTBL 
data  for  an  entry  are  used  to  calculate  those  parameters  which 
describe  the  geometry  object: 


PLATES 


CYLINDERS 


END  CAPS 


Plate  number 
Coordinates  of  corners 


Cylinder  number  End  cap  number 

End  cap  numbers  Cylinder  number 

Cylinder  length  Normal  direction 

x  axis  radius 
y  axis  radius 
Coordinates  of  center 
Rotation  angles  of  axis 


Note  that  It  is  assumed  that  plate  data  appear  in  contiguous  entries 
in  SEGTBL.  The  GEMACS  user  may  examine  this  printout  to  ensure  the 
correctness  of  his  Input  and  geometry  processing. 

4.  INTERNAL  VARIABLES: 


VARIABLE 

DESCRIPTION 

D 

Dummy  variable 

F1,F2,F3 

Arguments  for  GETPNT 

ICYL 

Cylinder  number  of  end  cap  entry 

ICYLPT 

PNTTBL  entry  for  cylinder 

IECPT 

PNTTBL  entry  for  end  cap 

IEC1 

User-assigned  number  of  top  end  cap 

IEC2 

User-assigned  number  of  bottom  end  cap 

IG 

SEGTBL  entry  number 

IG1 

SEGTBL  entry  number  If  multiple  plate  entry 
crosses  SEGTBL  page  boundary 
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PRTGTD 


(INPUT) 


IGBLK 

Geometry  block  number 

IGBLK1 

Geometry  block  number  if  multiple  plate 
entry  crosses  SEGTBL  page  boundary 

IGLIM 

Last  SEGTBL  entry  containing  a  GTD  geometry 

IGLIM1 

Last  SEGTBL  entry  containing  a  GTD  geometry 
if  multiple  plate  entry  crosses  SEGTBL  page 
boundary 

IGLOW 

First  SEGTBL  entry  containing  a  GTD 
geometry 

IGLOW1 

First  SEGTBL  entry  containing  a  GTD 
geometry  If  multiple  plate  entry  crosses 
SEGTBL  page  boundary 

INEEO 

Number  of  lines  required  for  page  header 

INPBLK 

First  block  of  geometry  containing  a  GTD 
geometry 

ITAG 

Geometry  entry  tag  number 

ITP 

Index  over  geometry  types 

ITYPE 

Tag  number  of  geometry  type  being  tabulated 

11,12,13 

Arguments  for  GETPNT  (equivalent  to 
F1.F2.F3) 

LNLEFT 

Number  of  lines  left  on  page 

LNPAGE 

Number  of  printable  lines  per  page 

MMAX 

Number  of  coordinates  in  this  plate  SEGTBL 
entry 

N 

Plate  SEGTBL  entry  being  printed 

NCORN 

Number  of  corners  on  GTD  plate 

NEC 

User-assigned  end  cap  number 

NTRY 

Number  of  SEGTBL  entries  for  a  plate 
geometry 

NTYPE 

Number  of  plates,  cylinders,  or  end  caps 
already  printed 

NUMCY 


User-assigned  cylinder  number 
User-assigned  plate  number 


NUMPL 

THETAD.PHIO 

I/O  VARIABLES: 

A.  INPUT 
OGTORO 
ICYTAG 
IECTAG 
IP217 
IPLTAG 
ISGTBL 
ITAGID 
LUPRNT 
MAXBLK 
MAXSEG 
NDXBLK 
NPATCH 
NTPGTD 
NUMCY L 
NUMECP 
NUMPLT 
NUMSEG 
NWIRE 


Angles  describing  rotation  of  cylinder  axis 
(cylinder)  or  orientation  of  end  cap  normal 
(end  cap)  In  degrees 


LOCATION 

/GEOOAT/ 

/GTDDAT/ 

/GTDDAT/ 

/GEODAT/ 

/GTDDAT/ 

/SEGMNT/ 

/GTODAT/ 

/ADEBUG/ 

/SEGMNT/ 

/SEGMNT/ 

/SEGMNT/ 

/SEGMNT/ 

/GTOOAT/ 

/GTDDAT/ 

/GTDDAT/ 

/GTDDAT/ 

/SEGMNT/ 

/SEGMNT/ 

/SEGMNT/ 


SEGTBL 


B.  OUTPUT 
NONE 

CALLING  ROUTINE: 
GEOORV 

CALLED  ROUTINES: 

ASSIGN 

GETPNT 

GETSEG 

STATIN 

STATOT 


LOCATION 


WLKBCK 


PRTGTD 


Page  1  of  2 


/  PLATES  X 
PRINTED* 
TOTAL  PLATES  IN 
v  GEOMETRY  . 


GEOMETRY  \ 
^  ELEMENT  TAG 
SAME  AS  GEOMETRY 
XJYPE  SPECIFIED^ 


BEGIN  NEW  PAGE  IF 
REQUIRED 


CASE  (TAG  ID) 
CYLINDER  TAG 


✓'Xylinoers^, 
PRINTED  > 
TOTAL  CYLINDERS 
^  IN  GEOMETRY  . 


END  CAP  TAG 
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1.  NAME:  PRTKJ 


(GTO,  MOM) 


2.  PURPOSE:  To  print  a  list  of  the  (K,J)  Interactions  set  by  the 

SET I NT  command. 

3.  METHOD:  The  interaction  array  is  searched  for  (K,J)  values 

contained  In  ISETTB.  Wnen  a  match  is  found,  the  keyword  associated 
with  the  Interaction  is  placed  In  a  list.  When  the  search  is 
complete  the  list  is  printed. 


4.  INTERNAL  VARIABLES: 
VARIABLE 


(K,J) 


5.  I/O  VARIABLES: 
A.  INPUT 
IP217 
ISETTB 


KJINT 


KWNAME 


LUPRNT 
NCOOES 
B.  OUTPUT 


DEFINITION 
Loop  index 

Pointer  to  end  of  keyword  name  list 

Keyword  number 

Row  of  ISETTB  being  examined 

GTD  or  MOM  Interaction  indices 

List  of  keyword  names 

NCODES  pointer  for  keyword 

Keyword  name  in  NCODES 


LOCATION 

/GEODAT/ 

/INTMAT/ 

/INTMAT/ 

/PARTAB/ 

/AOEBUG/ 

/PARTAB/ 


•VW.  ' 
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PRTKJ 


(GTD,  MOM) 


CALLING  ROUTINES:* 
EXCORV  (2,3) 

FLDDRV  (2) 

ZIJDRV  (2,3) 

CALLED  ROUTINES: 

ASSIGN 

CONVRT 

STATIN 

STATOT 

WLKBCK 

ro 

3M 
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FIND  NEXT  VALID 
KEYWORD 


NAME:  PRTSYM 


(MOM) 


PURPOSE:  Subroutine  to  execute  the  PRINT  and  WRITE  commands. 

METHOD:  The  task  number  Is  recovered  and  the  input  arguments 

extracted  from  the  argument  list.  If  a  WRITE  task,  the  row  and 

column  Indices  are  recovered  from  the  argument  list.  If  a  PRINT 

task,  the  row  and  column  indices  are  recovered  from  NDATBL.  The 

data  are  retrieved  Into  the  TEMP  array  and  written  to  either  the 
LUPRNT  logical  unit  or  the  logical  unit  specified  on  the  WRITE 
command. 


INTERNAL  VARIABLES: 

VARIABLE 

ANGLE 

COLHDR 

CPART 

HEADR 

IALPHA 

IBAND 

IBW 

I  CALL 

ICMPLX 

IJMOD 

ILWR 

INTGER 

ISYMTY 

ITRANP 

ITRBUT 

ITYPE 


DEFINITION 

Phase  for  complex  data 
Column  header 
Complex  part  of  data 
Print  variable 

Flag  Indicating  an  alpha  text  symbol 
Flag  Indicating  a  banded  matrix 
Interval  variable  for  bit  set  attributes 
Type  of  printout  required  of  FABL04 
Variable  indicating  complex  data 
Modulus  function 

Variable  indicating  a  lower  triangular 
matrix 

Variable  Indicating  integer  data  set 
Variable  indicating  symmetrical  data  set 
Variable  indicating  transposed  data  set 
Bit  set  attribute  word 
Variable  indicating  type  of  data  set 
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IUPR 

Variable  indicating  upper  triangular  matrix 

LOCI 

First  cell  of  TEMP  for  internal  storage 

LSTREC 

Last  record  required 

LUFILE 

Logical  file  number  of  the  data  set 

NAMSYM 

Name  of  the  data  set 

NCI 

First  element  index 

NC1M1 

NCI  minus  one 

NC2 

Last  element  index 

NOXARG 

Index  to  argument  list 

NDXPNT 

Index  to  parent  data  set 

NDXSYM 

Index  to  symbol  being  retrieved 

NPRELM 

Number  of  words  per  data  set  element 

NPRLIN 

Number  of  data  set  words  per  line 

NPRPRT 

Number  of  words  per  output 

NPRREC 

Number  of  words  per  data  set  record 

NP1 

Loop  control 

NP2 

Loop  control 

NR1 

First  record  index 

NR2 

Last  record  index 

NUMELM 

Number  of  elements  per  record 

NUHREC 

Number  of  records  per  data  set 

RDTODG 

Conversion  from  radians  to  degrees  factor 

ROWHOR 

Row  header  data 

RPART 

Real  part  of  complex  data 

SQRTRC 

Magniturde  of  complex  data 

'  .*  A  A 
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WRITE 

WRTTSK 

I/O  VARIABLES: 

A.  INPUT 
INTARG 
IPASS 
ISOFF 
ISON 
KBBAND 
KBCPLX 
KBGEOM 
KBLWRT 
KBOROR 
KBREAL 
KBSOLN 
KBSYH 
KBTEXT 
KBUPRT 
KOLB IT 
KOLCOL 
KOLLNK 
KOLNAM 


KOLROW 

LSTARG 

LSTIOO 


PRTSYM  (MOM) 

Logical  .TRUE,  for  WRITE  command 
Task  number  for  WRITE  command 

LOCATION 

/ARGCOM/ 

/ARGCOM/ 

/ADEBUG/ 

/ADEBUG/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/ARGCOM/ 

/ADEBUG/ 
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PRTSYN 


LUPRNT 

/ADEBUG/ 

NDATBL 

/PARTAB/ 

NOPCOD 

/ADEBUG/ 

NTALPH 

/ADEBUG/ 

NUMARG 

/ARGCOH/ 

NUMWRO 

/ADEBUG/ 

ZERO 

/ADEBUG/ 

OUTPUT 

NONE 

6.  CALLING  ROUTINE: 
TSKXQT 

7.  CALLEO  ROUTINES: 
ASSIGN 

CONVRT 

FABL04 

GETARG 

GETSYM 

IBITCK 

OPNFIL 

STATIN 

STATOT 

WLKBCK 

WRTFIL 


v*r 


1.  NAME:  PUTKWV  (GTD,  INPUT,  MOM,  OUTPUT) 

2.  PURPOSE:  Put  value  In  common  keyword  variable. 

3.  METHOD:  The  calling  routine  will  pass  through  a  value  to  be  put  In 

the  keyword  variable. 


4.  INTERNAL  VARIABLES: 

VARIABLE 

KW 

NDX 

NDXKWD 

VALUKW 

5.  I/O  VARIABLES: 

A.  INPUT 

CLITE 

ISON 

KWCOND 

KWEPSR 

KWFRQ 

KWNAME 

KWNMFL 

KWTIME 

LUPRNT 

NCODES 

NDXKWD 

TWOPI 

VALUKW 

ZERO 


DEFINITION 
Keyword  number 

Keyword  index  to  NCODES  array 
Keyword  number 

Keyword  value  to  be  put  in  keyword  variable 


LOCATION 

/AMPZIJ/ 

/ADEBUG/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/ADEBUG/ 

/PARTAB/ 

F.P. 

/AMPZIJ/ 

F.P. 

/ADEBUG/ 


l 


PUTKWV 


(GTD,  INPUT,  MOM,  OUTPUT) 


B.  OUTPUT 

LOCATION 

EPSR 

/AMPZIJ/ 

FRQMHZ 

/AMPZIJ/ 

IERRF 

/ADEBUG/ 

IPERF 

/AMPZIJ/ 

KSYMP 

/AMPZIJ/ 

NFILES 

/  IOFLES/ 

SIGMA 

/AMPZIJ/ 

TIMTGO 

/SYSFIL/ 

WAVLGH 

/AMPZIJ/ 

WAVNUM 

/AMPZIJ/ 

CALLING  ROUTINE: 

DMPDRV 


7.  CALLED  ROUTINES: 
ASSIGN 
CONVRT 
ERROR 
STATIN 
STATOT 
WLKBCK 
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PUTKWV  (GTD,  INPUT,  MOM,  OUTPUT) 


PURPOSE:  To  retrieve  and  store  point  data  for  the  geometry  proces¬ 
sor. 

METHOD:  If  I  is  positive,  the  input  arguments  are  stored  in  array 

PTTBLE.  If  I  is  negative,  a  search  is  made  to  find  the  original 
data.  New  data  are  stored  if  the  point  is  found.  If  not  found,  an 
error  message  is  printed. 

INTERNAL  VARIABLES: 

VARIABLE 

DEFINITION 

I 

Point  number,  if  negative,  point  is  to  be 
retrieved,  if  positive,  point  is  to  be 
stored. 

IPT 

Negated  point  number 

XP 

X  coordinate  of  point 

YP 

Y  coordinate  of  point 

ZP 

Z  coordinate  of  point 

I/O  VARIABLES: 

A.  INPUT 

LOCATION 

DB6PRT 

/ADEBUG/ 

I 

F.P. 

ISON 

/ADEBUG/ 

LUPRNT 

/ADEBUG/ 

MAXPTS 

/PNTTBL/ 

SCALE 

/SEGMNT/ 

XP 

F.P. 

YP 

F.P. 

ZP 

F.P. 

B.  OUTPUT 

LOCATION 

I 

F.P. 

DEVIOUS  PAGE 
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PUTPNT 


(INPUT) 


1.  NAME:  PUTSEG 


(INPUT) 


2.  PURPOSE:  To  retrieve  and  enter  data  Into  the  SEGTBL  array  for  the 
geometry  processor. 

3.  METHOO:  The  argument  list  parameters  are  either  stored  In  the 
SEGTBL  array  or  retrieved  from  the  SEGTBL  array  depending  upon  the 
value  for  the  ITAG  and  the  IS  parameters. 

4.  INTERNAL  VARIABLES: 

VARIABLE  DEFINITION 


ICASE  Flag  Indicating  the  various  cases:  for 

retrieval  by  tag  number  ICASE  equals  1;  for 

retrieval  by  segment  number  ICASE  equals  2; 
to  replace  data  for  a  segment  already 
stored,  ICASE  equals  3 

IS  Input  segment  number 

ISEG  Pointer  to  array  SEGTBL 


ISG 

ITAG 

ITG 

JSG 

JTG 

LIMSEG 

NDXBLK 

NTRBLK 


Internal  variable  for  segment  number 
Tag  number  of  segment 
Type  of  segment 

Value  of  segment  number  for  which  data  are 
to  be  replaced 

Negated  tag  number 

Number  of  segments  In  current  block  of  data 
Index  to  data  block  currently  In  use 
NDXBLK-1  or  MAXBLK 


NUMBLK  Number  of  geometry  data  blocks 

R  Segment  radius  or  patch  area 

XI  X  coordinate  of  end  1  of  wire 


X2  X  coordinate  of  end  2  of  wire 

X3  Ninth  SEGTBL  entry 


"previous  page 
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PUTSEG 


(INPUT) 


Y1 

Y  coordinate  of  end  1  of  wire 

Y  2 

Y  coordinate  of  end  2  of  wire 

Y3 

Tenth  SEGTBL  entry 

Z1 

Z  coordinate  of  end  1  of  wire 

Z2 

Z  coordinate  of  end  2  of  wire 

Z3 

Eleventh  SEGTBL  entry 

I/O  VARIABLES: 

A. 

INPUT 

LOCATION 

DBGPRT 

/ADEBUG/ 

IP217 

/GEODAT/ 

IPLTAG 

/GTDDAT/ 

IS 

F.P. 

ISOFF 

/ADEBUG/ 

ITAG 

F.P. 

KOLCOL 

/PARTAB/ 

LUPRNT 

/ADEBUG/ 

MAXBLK 

/SEGMNT/ 

MAXSEG 

/SEGMNT/ 

NAMSEG 

/SEGMNT/ 

NDXBLK 

/SEGMNT/ 

NPRSEG 

/SEGMNT/ 

NUMSEG 

/SEGMNT/ 

R 

F.P. 

SCALE 

/SEGMNT/ 

SEGTBL 

/SEGMNT/ 
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PUTSEG 


(INPUT) 


XI 

X2 

X3 

Yl 

Y2 

Y3 

Z1 

12 

Z3 

OUTPUT 

IS 

ISEG 

ISGTBL 

ITAG 

NDXBLK 

NPATCH 

NUMCYL 

NUMECP 

NUMGTD 

NUMPLT 

NUMSEG 

NWIRE 

R 

SEGTBL 

UPDBLK 


F.P. 

F.P. 

F.P. 

F.P. 

F.P. 

F.P. 

F.P. 

F.P. 

F.P. 

LOCATION 

F.P. 

/SEGMNT/ 
/SEGMNT / 
F.P. 

/SEGMNT/ 

/SEGMNT/ 

/GTDOAT/ 

/GTDDAT/ 

/GTDOAT/ 

/GTDDAT/ 

/SEGMNT/ 

/SEGMNT/ 

F.P. 

/SEGMNT/ 

/SEGMNT/ 
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PUTSE6 


(INPUT) 


XI 

F.P 

X2 

F.P 

X3 

F.P 

Y1 

F.P 

Y  2 

F.P 

Y3 

F.P 

Z1 

F.P 

12 

F.P 

Z3 

F.P 

6.  CALLING  ROUTINES: 
CYLNOR 

ENDCAP 

PATCH 

PLATE 

WYRDRV 

7.  CALLED  ROUTINES: 
ASSIGN 

GETSEG 

GETSYM 

PUTSYM 

STATIN 

STATOT 

SYMUPD 

WLKBCK 
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1.  NAME: 


PUTSYM 


(GTD,  INPUT,  MOM,  OUTPUT) 


2.  PURPOSE:  To  transfer  in-core  data  to  a  file  or  an  array  associated 
with  a  specified  symbolic  name. 

3.  METHOD:  Calculate  the  record  length  and  symbol  attributes.  Deter¬ 
mine  the  file  number  and  issue  calls  to  WRTFIL  to  store  the  data  In 
the  records  specified.  If  the  data  to  be  stored  replace  an  existing 
record,  the  process  occurs  in  steps: 

(a)  All  records  before  the  first  replacement  record  are  trans- 
fered  from  the  symbol  data  file  to  a  scratch  file. 

(b)  The  replacement  records  are  written  onto  the  scratch  file. 


(c)  All  records  after  the  last  replacement  record  are  trans¬ 
ferred  to  the  scratch  file. 


(d)  The  unit  numbers  of  the  scratch  file  and  symbol  file  are 
switched  instead  of  copying  the  scratch  file  back  into  the 
symbol  file. 


Any  GEMACS  file  may  contain  more  than  one  edition  of  a  data  set. 
For  example,  when  a  data  set  is  generated  in  a  loop,  there  will  be 
as  many  editions  of  the  data  set  as  there  are  passes  through  the 
loop.  All  editions  are  contained  sequentially  on  the  same  file. 
The  format  of  a  multiple  edition  data  set  is  shown  in  figure  1. 
LOCFST,  the  global  location  of  the  first  word  of  the  edition  being 
accessed  (the  "present"  edition),  is  stored  in  NDATBL  column  KOLFST. 

To  access  the  correct  records  of  the  present  edition,  PUTSYM  calls 
FNDREC,  which  returns  the  number  of  the  first  global  record  of  the 
present  edition.  This  value  is  used  as  an  offset  so  that  global 
record  numbers  may  be  computed  from  edition  record  numbers.  For 
example,  suppose  for  the  file  In  figure  1,  the  present  edition  Is 
edition  #3  (LOCFST  =  79)  and  PUTSYM  was  called  to  store  record 
numbers  5  through  8  of  the  edition.  FNDREC  returns  the  global 
record  number  for  LOCFST  as  19.  Hence  the  global  record  numbers 
would  be 

IREC1  =  5  +  19  -  1  =  23 
IREC2  =  8  +  19  -  1  =  26 

The  basic  process  of  file  storage  is  shown  in  figure  2.  If  a  record 
Is  not  to  be  replaced,  the  record  is  read  from  IF1  into  ITEMP,  then 
written  to  IF2.  If  the  record  is  to  be  replaced,  IF1  is  read  into 
ITEMP  to  advance  IF  1 ,  but  the  data  for  IF2  are  taken  from  TMPBUF. 
TMPBUF  may  point  to  the  same  storage  location  as  TEMP,  since  the 
contents  of  TEMP  are  saved  prior  to  file  I/O  and  restored  prior  to 
exiting  PUTSYM. 


*  V*  v.v*  O  '  *  s’ 


PREVIOUS  PAGE 
IS  BLANK 


GEMACS 

RECORD  NUMBER 


EDITION 
NO.  1 


EDITION 
NO.  2 


EDITION 
NO.  3 


EDITION 
NO.  4 

(PARTIAL) 


PUTSYM 


(GTD,  INPUT,  MOM,  OUTPUT) 


PHYSICAL 
RECORD  NUMBER 


RECORD 

LENGTH  (WORDS) 


LOCFST 


LOCNOW-  114 


Figure  1 . 


A  Multiple  Edition  Data  Set  with  Three  Complete  and 
One  Partial  Editions.  (The  matrix  stored  is  a  banded, 
upper  triangular,  real  matrix,  derived  from  a  9  x  9 
real  matrix.) 


(GTD,  INPUT,  MOM,  OUTPUT) 


|  EDITION  NO.  2 


I - -  A  1 

*  EDITION  NO.  2  I  ! 


23  !  24  i  25  t  26  ' 


TMPBUF 


I  EDITION  NO.  4 

I 

|  -  " 
"FROM"  FILE  (IF1) 


I  EDITION  NO.  4  I 

I  ^ - » 

TO"  FILE  (IF2) 


Figure  2.  The  Basic  Data  Transfer  Process  of  PUTSYM 

PUTSYM  is  written  to  take  advantage  of  four  special  cases:  (1)  Add¬ 
ing  to  the  end  of  the  file;  (2)  Replacing  the  entire  file;  (3) 
Writing  the  entire  file  to  the  checkpoint  file;  and  (4)  Retrieving 
the  entire  file  from  the  checkpoint  tape.  The  file  names  and  record 
limits  for  the  special  cases  are  shown  in  figure  3. 


FROM  FILE 

TO  FILE 

FILE  TRANSFER  LIMITS 

REPLACEMENT  RECORD  LIMITS 

SPECIAL  CASE 

IF1 

IF2 

N1 

N2 

IREC1 

IREC2 

1.  ADD  TO  END  OF  FILE 

0 

IFILE 

IREC1 

IREC2 

IREC1 

IREC2 

2.  REPLACE  ENTIRE  FILE 

0 

IFILE 

IREC1 

IREC2 

IREC1 

IREC2 

3.  CHECKPOINT 

IFILE  | 

f  IOCKPT  ^ 
^MODCHK*^ 

1 

IRECND 

1 

0 

4.  RESTART 

/  IOCKPT  \ 

\  MOOCH  Ky 

IFILE 

1 

IRECND 

1 

0 

5.  GENERAL  PUTSYM  COMMAND 

IFILE 

IOSCRT 

1 

IRECND 

IREC1 

IREC2 

(♦MODCHK  is  used  only  for  the  end-of-module  checkpoint.) 

Figure  3.  File  IDs  and  Record  Limits  for  Special  Cases  of  PUTSYM 
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PUTSYM 


(GTD,  INPUT,  MOM,  OUTPUT) 


INTERNAL  VARIABLES: 

VARIABLE 

I  BAND 

IFILE 

IF1 

IF2 

I  LOWER 
IORDER 
IR 

IRC1 

IRC2 

IRECND 

IRECNW 

IRECFS 

IREC1 

IREC2 

IROWM1 

IR1 

IR2 

ISV 

ISW 

IT 

IUPPER 


DEFINITION 

Flag  Indicating  a  banded  data  set 
The  logical  unit  designation  for  the  symbol 
"From"  file  number 
"To"  file  number 

Flag  indicating  a  lower  triangular  matrix 

Flag  indicating  a  transposed  matrix 

Record  number  used  to  restore  file  to  its 
position  before  checkpoint 

First  local  record  of  MATNAM 

Last  local  record  of  MATNAM 

Record  number  of  last  word  on  file 

Record  number  of  present  file  position 

Record  number  of  beginning  of  this  edition 

Global  record  number  corresponding  to  IRC1 

Global  record  number  corresponding  to  IRC2 

First  record  minus  one  to  be  retrieved  on 
file 

Internal  variable  equal  to  IRC1 

Internal  variable  equal  to  IRC2 

Pointer  to  symbol  name  in  symbol  table 

Flag  indicating  that  TEMP  array  must  be 
saved 

Pointer  to  TMPBUF  array  for  in-core  storage 
transfer 

Flag  indicating  an  upper  triangular  matrix 


PUTSYM 


(GTO,  INPUT,  MOM,  OUTPUT) 


IWR01 

First  word  address  for  present  edition  of 
data  set 

KBAND 

Flag  indicating  a  banded  parent  data  set 

KLINK 

Pointer  to  data  set  linked  to  parent 

LINK 

Pointer  to  parent  data  set  in  symbol  table 

LOCEND 

Location  of  the  end  of  the  data  file 

LOCFST 

Location  of  first  word  for  this  edition  of 
symbol 

LOCLST 

Location  of  last  word  for  this  edition  of 
symbol 

LOCNOW 

Current  location  of  logical  unit  containing 
data  set 

LOCSTR 

Location  in  the  TMPBUF  array 

LSTWRD 

Last  word  of  data  set  to  be  retrieved 

LWRUPR 

Flag  indicating  a  triangular  matrix 

MATNAM 

Input  argument  designating  symbol  name  to 
be  retrieved 

MAXWRD 

Total  number  of  words  to  be  retrieved 

MORE 

Flag  set  if  specified  attribute  is  present 
in  symbol 

MOVWRD 

Number  of  words  that  data  file  is  moved 

NO 

Dummy  variable 

N1 

Lower  transfer  record  limit 

N2 

Upper  transfer  record  limit 

NA 

Alpha  format  of  symbol  name 

NAMSAV 

Saved  name  of  MATNAM  for  future  calls  to 
PUTSYM 

NBITWD 

The  bit  set  attribute  word  for  the  data  set 

",  -i 


^Ly.VvV. 


■f*  «- 
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PUTSYM 


(GTD,  INPUT,  MOM,  OUTPUT) 


NPRELM 

Number  of 
data  set 

NPRPRT 

Number  of 

NPRREC 

Number  of 

NRECS 

Number  of 

NUMROW 

Number  of 

I/O  VARIABLES: 

A.  INPUT 

LOCATION 

OBGPRT 

/ADEBUG/ 

FLTSYM 

/SYMSTR/ 

IMDCHK 

/ADEBUG/ 

IOCKPT 

/SYSFIL/ 

IOFILE 

FLES/ 

IRCl 

F.P. 

IRC2 

F.P. 

IOSCR1 , IOSCR2 

/SYSFIL/ 

IRSTRT 

/ADEBUG/ 

ISOFF 

/ADEBUG/ 

ISON 

/ADEBUG/ 

IWRTCK 

/ADEBUG/ 

KBBAND 

/PARTAB/ 

KBCPLX 

/PARTAB/ 

KBDPRE 

/PARTAB/ 

KBLWRT 

/PARTAB/ 

KBORDR 

/PARTAB/ 

computer  words  per  element  of  the 

rows  in  parent 
rows  in  this  record 
records  in  this  edition 
rows  in  symbol 
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PUTSYM 


(GTD,  INPUT,  MOM,  OUTPUT) 


KBUPRT 
KOLAST 
KOLBIT 
KOLFST 
KOLLNK 
KOLLOC 
KOLNAM 
KOLROW 
LUPRNT 
MATNAM 
MAXSTR 
MODCHK 
NDATBL 
NDFILE 
NPDATA 
NTEMPS 
TEMP 
TMPBUF 
B.  OUTPUT 
IERRF 
IOSCRI 
IOSCR2 


/PARTAB/ 

/PARTA8/ 

/PARTAB/ 

/PARTAB, 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/PARTAB/ 

/ADEBUG/ 

F.P. 

/SYMSTR/ 
/SYSFIL/ 
/PARTAB/ 
/IOFLES/ 
/PARTAB/ 
/TEMPO 1/ 
/TEMPO 1/ 
F.P. 

LOCATION 

/ADEBUG/ 

/SYSFIL/ 

/SYSFIL/ 


PUTSYH 


(GTD,  INPUT,  MOM,  OUTPUT) 


.  CALLING  ROUTINES:* 


BANDIT  (3) 

LOODRV  (3) 

SOLORV  (3) 

OMPDRV  (1,2,3, 4) 

LUOORV  (3) 

STRTUP  (2,3,4) 

EGFMAT  (3) 

PUTSEG  (1,2,3) 

SUBPAT  (1) 

EXCORV  (2,3) 

REBLCK  (3) 

WRTCHK  (1,2, 3, 4) 

FLOORV  (2,3,4) 

RESTRT  (1) 

ZIJDRV  (2,3) 

GEOPRV  (1) 

RWFILS  (1,2, 3, 4) 

GETSEG  (1,2,3) 

SETDRV  (3) 

.  CALLED  ROUTINES: 

ASSIGN 

IBITCK 

STATOT 

CLSFIL 

IJMOD  (INTRINSIC) 

SYMDEF 

CONVRT 

MOVE I L 

WLKBCK 

ERROR 

OPNFIL 

WRTFIL 

FNDREC 

ROEFIL 

GETSYH 

STATIN 

1  -  INPUT 

2  -  GTD 

3  -  MOM 

4  -  OUTPUT 

PUTSYM 


(GTD,  INPUT,  MOM,  OUTPUT) 


£  C 

IN-CORE  N.  YES 
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PUTSYM 


(GTD,  INPUT,  MOM,  OUTPUT) 
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JTSYM  (GTD,  INPUT,  MOM,  OUTPUT) 


Page  4  of  5 


LOOP  OVER  RECORDS 
IN  DATA  FILE 


COMPUTE  NUMBER 
OF  WORDS  IN  THIS 
RECORD 


READ  THIS  RECORD 
FROM  INPUT  FILE 
RDEFIL 


,s  \ 

^  THIS  RECORO^N 

ONE  THAT  IS  TO 
BE  REPLACED  BY 
.  TMPBUF  DATA  ^ 


TRANSFER  THIS 
RECORD  TO  OUTPUT 
FILE 

WRTFIL 


X*^  THIS  THE  FIRSfV^ 
REQUESTED  RECORD 
AND  IS  DATA  SAVE 

^''S^SWITCH  QHy - 


RESTORE  TEMP  ARRAY 


TRANSFER  TMPBUF 
OATA  TO  OUTPUT 
FILE 

(WRTFIL) 


INCREMENT  STORAGE 
POINTER 


INPUT  > 
FILE  RECORDS 
REMAIN  TO  BE 


NAME:  QFUN 


(GTD) 

PURPOSE:  To  compute  the  q*  function  for  the  cylinder's  acoustically 
hard  diffraction  coefficient. 

METHOD:  The  q*  function  Is  defined  as  (see  references  A  and  B): 


q*(*> 

where 


ph<*> 


ej*/4 


v*> 


e-j*/4 

"7^ 


J 


QV(t) 

Qw2(t) 


e 


-j*T 


dt  , 


and  V(x)  and  W2(t)  are  Fock  type  Airy  functions,  and  Q  =  The  q* 
function  is  computed  as  follows:  dT 


1)  for  x  <  -3 
q*  (x) 


2)  for  -3  <  x  <  2 


<*-*:) 

q*(x)  =  q*(xt)  +  ,  )■  <q*(*i+1)-q*<*i)) 


where  the  q*(xi)  are  tabulated  values  (see  references  A  and  B)  and 
x1+l-xi=0.1  with  xi  <  x  <  Xj+i. 

3)  For  x  >  2 


q*(x) 


1  ejl,/6 

V«  '  yr 


s 


n=l 


-  -i  — 

xqne  6 

e _ 

q^i(-5n>l 


where  A^(t)  Is  the  Miller  type  Airy  function. 
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PREVIOUS  PAGE 
IS  BLANK 


QFUN 


(GTD) 


INTERNAL  VARIABLES: 

VARIABLE 

AMC 

AQ 

C 

EXC 

I 

PI 


DEFINITION 

-0.5*CEXP(J*PI/6)/SQRT(PI) 

Hiller  type  Airy  function  at  Q 
0 . 5/SQRT (PI) 

CEX°(-5*PI/6) 

Smallest  Integer  closest  to  10*X 


Q 


Zeroes  of  derivative  of  Miller  type  Airy 
function 


QFUN 

QI 

QR 

X 

XI 

I/O  VARIABLES: 

A.  INPUT 
PI 

X 

B.  OUTPUT 
QFUN 

CALLING  ROUTINES: 

RPLSCL 

SCLRPL 

SCTCYL 


Q  function 

Imaginary  part  of  tabulated  Q  function 
Real  part  of  tabulated  Q  function 
Argument  of  Q  function 
Real  number  representation  of  I 

LOCATION 

/PIS/ 

F.P. 

LOCATION 

FUNCTION 
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CALLED  ROUTINE:  BEXP 


REFERENCES: 


A.  P.  H.  Pathak,  "An  Asymptotic  Analysis  of  the  Scattering  of 
Plane  Waves  by  a  Smooth  Convex  Cylinder."  paper  to  appear  In 
J.  Radio  Science.  (Also  The  Ohio  State  University  Electro- 
Science  Laboratory  Technical  Report  784583-3,  March  1978). 

B.  N.  A.  Logan,  "General  Research  In  Diffraction  Theory,"  Vol.  I, 
LMSD-288087 ;  and  Vol.  II,  LMSD-288088,  Missiles  and  Space  Divi¬ 
sion,  Lockheed  Aircraft  Corp.,  1959. 


A  f" 


IS 

<-3 

? 


COMPUTE  q* 

USING  ALGORITHM  1 


COMPUTE  q*  USING 
ALGORITHM  2 
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MISSION 

of 

Rome  Air  Development  Center 
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